Combox data

en rettelse hehe... det hedder jo Combobox

Den tekst der er markeret:
objXML.open "GET", Combo1.Text, False

Ud fra index (hvis det er f.eks. en skjult box og alle adresse har fast adresse):
objXML.open "GET", Combo1.Index(*), False 'stjernen er et tal for det index den har HUSK den starter med at tælle ved 0

jeg har et problem... værdien skal sætte ind i et modul jeg har..

Den siger bare Object required nu

prøv at komme med noget mere kode

jeg har denne her på Main.frm

Private Sub Combo1_Change()
Combo1.AddItem "http://slashdot.org/slashdot.xml", 0
Combo1.AddItem "Med", 0
Combo1.AddItem "Hej", 0
End Sub

Så har jeg dette i mit module.cls
bjXML.open "GET", Combo1.Text, False

så prøv med:

Formnavn.Comboboxnavn.Text

Main.Combo1.Text

underligt... nu siger den bare Invalid Procedure call or argument.

jeg en mistanke til at det er fordi combobox'en når programmet køres er tom og at man så selv skal vælge før den henter.

Der kan du sætte den når programmet kørers....

Combo1.Text = combo1.index(0)

og lige en ting hvad er ,0 ved de additem

hvad mener du?

den henter noget fra en .xml fil...

objXML.open "GET", frmMain.Combo1.Index(0) = frmMain.Combo1.Index(0), False

Jeg får denne her: Wrong number of arguments or invalid property assignment.

Jeg har på frmMain en combo1
Private Sub Combo1_Change()
Combo1.AddItem "http://binnews.com/export/xml.php?id=21", 0
Combo1.AddItem "", 1
Combo1.AddItem "", 2
End Sub

objXML.open "GET", frmMain.Combo1.Index(0) = frmMain.Combo1.Index(0), False

Den linie bruger du til at hente noget fra en xml fil ?

nej... Jeg vil gerne hente det der står i min combobox og det er http://binnews.com/export/xml.php?id=21

rmMain.Combo1.Index(0) = frmMain.Combo1.Index(0) den trækker jo det ud fra combobox'en

Men den combobox ting kan jeg bare ikke få til at virke

kan du evt. lave et project hvor jeg kan se hvordan du gør det?

Det bliver først senere i aften.....

okay... ville bare meget gerne have det til at virke :)

Det kan da ikke passe det er så svært bare at trække data fra en combobox og derefter spøtte det ud i mit modul

Er det heller ikke.....

men jeg skal også ha tid til ting jo.......
Har lavet et lille projekt som jeg kan maile til dig hvis du smidder en mail adresse

okay... jeg sætter skam også meget pris på din hjælp :)

tobias[ved]saybot.dk

og har også fundet en fejl i det jeg har skrevet :)

objXML.open "GET", frmMain.Combo1.List(0), False

Vil jeg mene men sender det lige til dig :)

det virker og jeg takker mange gange... god hjælp :)

Lige en ting til... Kan jeg feks. give en en værdi i en combobox et navn...
så eks. ting 2 på listen er lig med test.xml som værdi?

lige en ting til igen :)... (du skal nok få point og en god karma)

Hvis jeg vælger en anden ting fra comboboxen så skifter den ikke indholdet.
det er fordi den ikke har en Private Sub Combo1_Click()

her er koden... men hvordan sætter jeg combo1_click() ind så det virker?

Public Function RetieveArticles() As Boolean

On Error GoTo ERR_HANDLER

Dim objXML        As New MSXML.XMLHTTPRequest
Dim objDOM        As New MSXML.DOMDocument
Dim objNodeList  As MSXML.IXMLDOMNodeList
Dim objNode      As MSXML.IXMLDOMNode
Dim objRoot      As MSXML.IXMLDOMElement
Dim objTitleNode  As MSXML.IXMLDOMNode
Dim objUrlNode    As MSXML.IXMLDOMNode
Dim objTimeNode  As MSXML.IXMLDOMNode
Dim objAuthorNode As MSXML.IXMLDOMNode

Dim bRetVal      As Boolean

'Connect to Slashdot.org and retieve slashdot.xml
objXML.open "GET", frmMain.Combo1.List(0), False
objXML.setRequestHeader "pragma", "no-cache"
objXML.setRequestHeader "cache-control", "no-cache"
objXML.send

objDOM.async = False

bRetVal = objDOM.Load(objXML.responseXML)

'Make sure the document loaded
If bRetVal = True Then
    'Parse XML for data needed
    Set objRoot = objDOM.documentElement
    Set objNodeList = objRoot.selectNodes("item")
   
    'get the Article count for Count Property
    iCount = objNodeList.length
   
    'Iterate through NodeList
    For Each objNode In objNodeList
        Set objTitleNode = objNode.selectSingleNode("title")
        Set objUrlNode = objNode.selectSingleNode("link")
        Set objTimeNode = objNode.selectSingleNode("pubDate")
        Set objAuthorNode = objNode.selectSingleNode("description")
       
        'Add Article to Articles object
        objArticles.Add objTitleNode.Text, objAuthorNode.Text, objTimeNode.Text, objUrlNode.Text
    Next
   
    RetieveArticles = True
    GoTo CLEAN_UP
Else
    RetieveArticles = False
    GoTo CLEAN_UP
End If

ERR_HANDLER:
    Err.Raise Err.Number

CLEAN_UP:
    Set objXML = Nothing
    Set objDOM = Nothing
    Set objNodeList = Nothing
    Set objNode = Nothing
    Set objRoot = Nothing
    Set objTitleNode = Nothing
    Set objUrlNode = Nothing
    Set objTimeNode = Nothing
    Set objAuthorNode = Nothing
   
   
End Function

Lige en ting til... Kan jeg feks. give en en værdi i en combobox et navn...
så eks. ting 2 på listen er lig med test.xml som værdi?

Der skal du lave en case eller en if der chekker det.....

Dim var1 as string
If Combo1.Text = bla1 or Combo1.Text = bla2 then
    var1 = test1.xml
Elseif Combo1.Text = bla3 or Combo1.Text = bla4 then
    var1 = test2.xml
Else:
    var1 = test3.xml
End if

Hvis jeg vælger en anden ting fra comboboxen så skifter den ikke indholdet.
det er fordi den ikke har en Private Sub Combo1_Click()

her er koden... men hvordan sætter jeg combo1_click() ind så det virker?

Nej Combo1_Click() Udfører en handling hvis du klikker, hvis du f.eks. vil ha den valgte tekst chekket op mod f.eks. en db for at få flere værdier......

Jeg er ikke lige helt med på hvor det er du vil ha den skal skifte værdier ?
Jeg har lige i det program jeg har mailet til dig prøvet at skifte ved at bruge comboboxen og det virker fint nok.......

Det med en handling kan også være sådan her:

Combo1_Click()
MsgBox(Combo1.Text)
End Sub

det er for jeg har et program der henter data fra en .xml fil. Så kan man så vælge hvilket feed man vil se ved at vælge i comboboxen.

Så skal den stå i din form kode, noget lignende det her:

Combo1_Click()
objXML.open "GET", Combo1.Text, False
End Sub

eller med index, hvis der er 2 adressser der kan være ens.....

Combo1_Click()
objXML.open "GET", Combo1.List(Combo1.Index), False
End Sub

hvordan vil du sætte den ind... jeg får bare syntax error

Dobbeltklikke på formen og sætte det ind, combo1 skal dog ændres til det navn du har givet den.....

Private Sub Combo1_Click()

End Sub

ja det ved jeg... men selve objXML.open "GET" findes jo i mit module.

Prøv sådan her så...........

Combo1_Click()
modulnavn.objXML.open "GET", Combo1.Text, False
End Sub

så får jeg object required

Hvad hedder den function eller sub som

modulnavn.objXML.open "GET", Combo1.Text, False

ligger i ?

den hedder Public Function RetieveArticles() As Boolean