Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: pomocy
anonim




Typ: Nie zarejestrowany
pomocy

Problem .... Pomocy

A wiec tak jestem calkowicie zielony z vb znam jedynie podstawy uczyc sie go zaczelem niedawno ;/ Stad tez mam problem z pewnym kodem zrodlowym .

Pisze pewnien poradnik i chce go napisac w vb .Ale niewiem jak zrobic by po kliknieciu na nazwe po lewej stronie np:  slowo carlin pojawila mi sie informacja po prawej stronie w innym okienku .Przyklad jak to wyglada podam ponizej  .Oto link

http://members.lycos.co.uk/chylik/ss.JPG

Plz czy ktos moze mi napisac chociaz jeden przyklad kodu zrodlowego do tego przykladu .Wystarczy mi tylko przyklad do Carlin z reszta juz sobie poradze.

aha i skad moge sciagnac kompilatora pod vb6  ?

Z gory Thx

06-03-2005 13:31
  
Tamgo




Typ: neutral
Postów: 129
Zarejestrowany: Aug 2004

Nie wiem, czy dobrze zrozumiałem sprawdź ten przykład:

http://www.vb-helper.com/howto_initialize_combobox_listbox.html

zastosowano tu wykorzystanie pliku tekstowego

[Post edytowany dnia 07-03-2005 11:20 przez Tamgo]

07-03-2005 11:18
Pokaż profil Tamgo  Wyślij email do Tamgo        4484571
hicks
raptor user



Typ: moderator
Postów: 279
Zarejestrowany: Apr 2003

Słuchaj anonimie! NIE ZAŚMIECAJ FORUM W KAŻDYM DZIALE! WIDZIAŁEM, ŻE ZNOWU TO ZROBIŁEŚ! WIDZE PO IP, ŻE TO TY. TYM RAZEM USUNĄŁEM WSZYSTKIE POSTY. I NIECH TO BĘDZIE PRZESTROGA DLA CIEBIE I DLA INNYCH MĄDRALI KTÓRYM SIE WYDAJE, ŻE UMIESZCZANIE TEGO SAMEGO POSTA NAWET POD INNYM TUTYŁEM IM COŚ DA! DOTĄD ZOSTAWIAŁEM JEDNEGO POSTA W ODPOWIEDNIM DLA NIEGO DZIAŁU, ALE OD DZISIAJ, BĘDĘ W FORMIE KARY BEZWZGLĘDNIE USUWAŁ WSZYSTKIE DUPLIKOWANE POSTY!


_____________________________________________
TLHW Clan member

08-03-2005 16:23
Pokaż profil hicks  Wyślij email do hicks   Odwiedź stronę hicks       2511367
anonim




Typ: Nie zarejestrowany

sorki

;/

08-03-2005 19:00
  
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Ewentualnie możesz to zrobić tak:

Private Sub LstMiasta_Click()
    Dim sBuffer As String
    Dim sFile As String
    Dim fData As Integer
   
    sFile = CStr(LstMiasta.ItemData(LstMiasta.ListIndex)) & ".dat"
    sBuffer = Space$(FileLen(sFile))
    fData = FreeFile
    Open sFile For Binary Access Read As fData
    Get fData, , sBuffer
    Close fData
    TxtQuesty.Text = sBuffer
End Sub


Używajac właściwości .ItemData przypisujesz w trybie desing (ze względu na stałe pozycje na liście można to zrobić) odpowiednie wartości i potem pliki nazywasz odpowiednio:

np.:
.List = Carlin
.ItemData = 0
Nazwa pliku = 0

.List = Thais
.ItemData = 1
Nazwa pliku = 1

itd.

Można też otwierać pliki pobierająć tylko właściwość .ListIndex (pliki będą miały numery takie jak indeksy kolejnych pozycji), ale nie opłaca się, bo będzie sporo roboty ze zmienianiem nazw plików, gdy Cipy dodadzą nowe miasta.

---
A w nawiązaniu do tematu:
1) Zapomniałeś o Rookgaardzie.
2) Mnie to wygląda na quest spoiling...
3) http://www.enter.net.pl/www/marcin_an/tibidone.jpg


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

10-03-2005 10:05
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
xEagle2



Typ: neutral
Postów: 280
Zarejestrowany: Jul 2003

Private Sub lista_Click()
    If lista.text = "abcc" Then text.text = "abcc"
End Sub


_____________________________________________
Co oznacza NET ? Natychmiastowa Eksplozja Trojanów

14-03-2005 07:23
Pokaż profil xEagle2  Wyślij email do xEagle2       
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

No tak.. ale tutaj nie można tak wpisać, bo teksty będą dosyć długie


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

14-03-2005 08:23
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
xEagle2



Typ: neutral
Postów: 280
Zarejestrowany: Jul 2003

Select Case lista.text
  case "Carlin"
      Otwarcie pliku ... (jak nie wiesz jak to napisz)
  case "Thais"

End Select


_____________________________________________
Co oznacza NET ? Natychmiastowa Eksplozja Trojanów

14-03-2005 13:59
Pokaż profil xEagle2  Wyślij email do xEagle2       
Wszystkich odpowiedzi: 7 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1