Avatar billede thewizard Nybegynder
02. oktober 2001 - 14:32 Der er 16 kommentarer og
1 løsning

Samlede spørgsmål - nogen der har tid?

Hehe - jeg har følgende spørgsmål:

1. spørgsmål:

Jeg har oprettet en listbox, hvor der står nogen ord.
F.eks.:

Kaffe
Smør
Ost

:) ... Nu skal jeg have hjælp til at lave et VB-script til at søge efter \"kaffe\" f.eks. ... man skal også kunne finde ordet selv om man søger på \"kaf\".

2. spørgsmål:
Jeg skal lave en label om til et link.. så at den åbner IE *eller anden browser*, og går ind på siden.

3. spørgsmål:
Opretter jeg en \"option\"-form, hvordan ændrer jeg så i \"tabs\"? Jeg kan kun redigere den første.. men hvis man har ca. 3 .. hvordan skifter man over til dem? *Har prøvet det i delphi :)*

Håber at i kan hjælpe til med nogen af spørgsmålene... svar på et spørgsmål = 33 point.. Hvem svarer først?

/TheWizard
Avatar billede thewizard Nybegynder
02. oktober 2001 - 14:35 #1
ehmmm .. glemte jeg at sige, at jeg programmerer Visual Basic? :D
Avatar billede jelzin101 Praktikant
02. oktober 2001 - 14:44 #2
sp1.

smid en textbox ved siden af listboxen :

      Const LB_FINDSTRING = &H18F
      Private Declare Function SendMessage Lib \"User32\" _
            Alias \"SendMessageA\" _
        (ByVal hWnd As Long, _
          ByVal wMsg As Integer, _
          ByVal wParam As Integer, _
          lParam As Any) As Long

      Private Sub Form_Load()
        with list1
        .AddItem \"Kaffe\"
        .AddItem \"The\"
        .AddItem \"Fjernsyn\"
        .AddItem \"Sodavand\"
        end with
        Text1.Text = \"\"
        End Sub
Private Sub Text1_Change()
        List1.ListIndex = SendMessage(List1.hWnd, LB_FINDSTRING, -1, _
            ByVal Text1.Text)
      End Sub
Avatar billede zeon_rm Nybegynder
02. oktober 2001 - 14:59 #3
sp2.

Lav en label ændre tekst farven til blå og understreg teksten. Derefter bruger du den her kode:

Private Declare Function ShellExecute Lib \"shell32.dll\" _
    Alias \"ShellExecuteA\" (ByVal hwnd As Long, _
    ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long
   
Private Sub Label1_Click()
Dim lRet As Long
   
    lRet = ShellExecute(Me.hwnd, \"open\", \"<dit link>\", \"\", \"\", vbNormalFocus)

End Sub

/Zeon_rm
Avatar billede thewizard Nybegynder
02. oktober 2001 - 15:53 #4
jelzin101: Jepz, dit virkede da :) ... Zeon_rm: Jeg checker dit om 2 min ...

33 point til jelzin101
Avatar billede thewizard Nybegynder
02. oktober 2001 - 15:56 #5
zeon_rm: sorry m8... Jeg gav kun 33 point til jelzin101, men den accepterede for 100 :/

Sorry igen :(

/TheWizard
Avatar billede jelzin101 Praktikant
02. oktober 2001 - 16:01 #6
Avatar billede thewizard Nybegynder
02. oktober 2001 - 16:10 #7
Tak du er en m8 :)
Avatar billede thewizard Nybegynder
02. oktober 2001 - 16:46 #8
Virkelig ingen der kan hjælpe lidt med 3. spørgsmål?

- Jeg har oprettet en TabStrip, men den bliver på \"forsiden\" .. så jeg kun kan \"designe\" dén - og ikke de andre sider. Hvordan får jeg den til at skifte over på de andre fane-blade?

/TheWizard
Avatar billede jelzin101 Praktikant
02. oktober 2001 - 20:13 #9
thewizzard>> jeg er lige ved at defragge 120 gig.... jeg kigger lige på det når jeg er færdig(nok imorgen :) - men hvad er det helt præcist - er det ligesom de faneblade der kommer når man vælger properties for f.eks. \"my computer\" ???
og hvilken ocx har du valgt (hvad hedder komponenten)
Avatar billede thewizard Nybegynder
02. oktober 2001 - 21:03 #10
TabStrip ... hvis det er det du mener? :)
Avatar billede thewizard Nybegynder
02. oktober 2001 - 21:04 #11
Findes under \"Windows commen controls\" ... i think

Den er standard når du har installeret VB
Avatar billede cellaneous Nybegynder
02. oktober 2001 - 22:56 #12
Private Sub TabStrip1_Click()
    MsgBox TabStrip1.SelectedItem.Index
End Sub

sådan kan du finde ud af hvilken der er klikket på :-)

TabStrip1.Tabs(2).Selected = True

for at vælge tab nummer to skal være valgt :-)
Avatar billede thewizard Nybegynder
02. oktober 2001 - 23:14 #13
cellaneous:

Den er bare ikke glad for hvis man skriver:

If TabStrip1.Tabs(2).Selected = True Then
List1.Visible = False
End If

?! Hvad skal jeg gøre?
Avatar billede thewizard Nybegynder
02. oktober 2001 - 23:16 #14
Ohhh! Fandt fejlen...

Min hed ikke TabStrip1 :)

*Dummeslag*

/TheWizard
Avatar billede thewizard Nybegynder
02. oktober 2001 - 23:18 #15
Smut lige over i:

http://www.eksperten.dk/spm/116420

Og skriv et \"svar\"... så for du 33 points for din udtagelse.

Sorry jelzin101; du var sq for langsom :)
Avatar billede jelzin101 Praktikant
02. oktober 2001 - 23:19 #16
helt ok - skidtet defragmenterer stadig.....
Avatar billede thewizard Nybegynder
02. oktober 2001 - 23:23 #17
hehe - men ellers tak for hjælpen jelzin101 :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester