Re: [Tutor] Membuat Selector dengan VB6

by **Ardhy Child** Fri Jun 22, 2012 10:32 am

@anjas : boleh boleh

@hady : itu atas akang kan momod, bilang aja

by **FajarNauval** Fri Jun 22, 2012 10:34 am

Cobain Ah

[Tutor] Membuat Selector dengan VB6 - Page 2 980173

by **Ardhy Child** Fri Jun 22, 2012 10:35 am

Sorrry dopost
koreksi dikit

Code:: untuk bagian command button : Private Sub Command1_Click() List1.AddItem Text1.Text Open App.Path + "\Index_Name.txt" For Output As #1 For i = 0 To List1.ListCount - 1 Print #1, List1.List(i) Next Close End Sub

by **FajarNauval** Fri Jun 22, 2012 10:37 am

Ardhy Child wrote:Sorrry dopost
koreksi dikit

Code:
untuk bagian command button : Private Sub Command1_Click() List1.AddItem Text1.Text Open App.Path + "\Index_Name.txt" For Output As #1 For i = 0 To List1.ListCount - 1 Print #1, List1.List(i) Next Close End Sub

Apa bedanya kang?

by **Ardhy Child** Fri Jun 22, 2012 10:38 am

Bagian path nya saya salah

by **FajarNauval** Fri Jun 22, 2012 10:41 am

Ardhy Child wrote:Sorrry dopost
koreksi dikit

Code:
untuk bagian command button : Private Sub Command1_Click() List1.AddItem Text1.Text Open App.Path + "\Index_Name.txt" For Output As #1 For i = 0 To List1.ListCount - 1 Print #1, List1.List(i) Next Close End Sub

itu mah bukannya tergantung nyimpen .txt nya dimana kan?

by **Ardhy Child** Fri Jun 22, 2012 10:51 am

iya kang , tadi contohnya saya kan di folder project nya

by **FajarNauval** Fri Jun 22, 2012 11:52 am

kang File .txt yg mau di load tuh yang mana?

Code:: untuk bagian command button : Private Sub Command1_Click() List1.AddItem Text1.Text Open App.Path + "\Index_Name.txt" For Output As #1 For i = 0 To List1.ListCount - 1 Print #1, List1.List(i) Next Close End Sub

Atau yg ini

Code:: Private Sub Form_Load() Call SaveLoadListbox(List1, App.Path + "\Index_Name.txt", "load") End Sub

by **FajarNauval** Fri Jun 22, 2012 12:53 pm

Mau ngsih Laporan

Code:: Private Sub SaveLoadCombobox(plstLB As ComboBox, _ pstrFileName As String, _ pstrSaveOrLoad As String) Dim strListItems As String Dim lcS As String Dim i As Long Dim lcF As String Select Case pstrSaveOrLoad Case "load" plstLB.Clear Open pstrFileName For Input As #1 While Not EOF(1) Line Input #1, strListItems plstLB.AddItem strListItems Wend Close #1 End Select End Sub Private Sub Combo1_Change() Combo1.AddItem ("Chiller Font") Combo1.AddItem ("Edwardian Font") Combo1.AddItem ("Gigi Font") Combo1.AddItem ("Pristina Font") Combo1.AddItem ("Rage Font") Combo1.AddItem ("Berlin Sans FB Font") Combo1.AddItem ("Consolas Italic Font") Combo1.AddItem ("Estrangelo Edessa Font") Combo1.AddItem ("Fang Song Font") Combo1.AddItem ("Gungsung Font") Combo1.AddItem ("KaiTi Font") Combo1.AddItem ("Lucida Handwriting Font") Combo1.AddItem ("Meiryo Font") Combo1.AddItem ("Old English Text MT Font") Combo1.AddItem ("Viner Hand ITC Font") End Sub Private Sub Combo2_Change() Combo2.AddItem ("Alz Brother") Combo2.AddItem ("Barcelonista") Combo2.AddItem ("Brain Touch") Combo2.AddItem ("Cherrybelle") Combo2.AddItem ("Disappointed") Combo2.AddItem ("Liverpool") Combo2.AddItem ("Madridista") Combo2.AddItem ("Pes 2013") Combo2.AddItem ("The Red Devils") End Sub Private Sub Command1_Click() Select Case Combo2.ListIndex Case 0 FileCopy (App.Path + "\Selector\Header Selector\Header\Alz Brother\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 1 FileCopy (App.Path + "\Selector\Header Selector\Header\Barcelonista\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 2 FileCopy (App.Path + "\Selector\Header Selector\Header\Brain Touch\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 3 FileCopy (App.Path + "\Selector\Header Selector\Header\Cherrybelle\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 4 FileCopy (App.Path + "\Selector\Header Selector\Header\Disappointed\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 5 FileCopy (App.Path + "\Selector\Header Selector\Header\Liverpool\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 6 FileCopy (App.Path + "\Selector\Header Selector\Header\Madridista\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 7 FileCopy (App.Path + "\Selector\Header Selector\Header\Pes 2013\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 8 FileCopy (App.Path + "\Selector\Header Selector\Header\The Red Devils\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") End Select End Sub Private Sub Command3_Click() Select Case Combo1.ListIndex Case 0 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Chiller\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 1 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Edwardian\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 2 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Gigi\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 3 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Pristina\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 4 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Rage\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 5 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Berlin Sans FB\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 6 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Consolas Italic\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 7 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Estrangelo Edessa\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 8 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Fang Song\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 9 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Gungsung\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 10 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font KaiTi\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 11 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Lucida Handwriting\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 12 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Meiryo\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 13 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Old English Text MT\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 14 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Viner Hand ITC\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") End Select End Sub Private Sub Command2_Click() End End Sub Private Sub Command5_Click() Combo1.AddItem Combo1.Text Open App.Path + "\Selector\Map.txt" For Output As #1 For i = 0 To Combo1.ListCount - 1 Print #1, Combo1.List(i) Next Close End Sub Private Sub Form_Load() Combo1.AddItem ("Chiller Font") Combo1.AddItem ("Edwardian Font") Combo1.AddItem ("Gigi Font") Combo1.AddItem ("Pristina Font") Combo1.AddItem ("Rage Font") Combo1.AddItem ("Berlin Sans FB Font") Combo1.AddItem ("Consolas Italic Font") Combo1.AddItem ("Estrangelo Edessa Font") Combo1.AddItem ("Fang Song Font") Combo1.AddItem ("Gungsung Font") Combo1.AddItem ("KaiTi Font") Combo1.AddItem ("Lucida Handwriting Font") Combo1.AddItem ("Meiryo Font") Combo1.AddItem ("Old English Text MT Font") Combo1.AddItem ("Viner Hand ITC Font") Combo2.AddItem ("Alz Brother") Combo2.AddItem ("Barcelonista") Combo2.AddItem ("Brain Touch") Combo2.AddItem ("Cherrybelle") Combo2.AddItem ("Disappointed") Combo2.AddItem ("Liverpool") Combo2.AddItem ("Madridista") Combo2.AddItem ("Pes 2013") Combo2.AddItem ("The Red Devils") Call SaveLoadCombobox(Combo1, App.Path + "\Selector\Map.txt", "load") End Sub Private Sub Combo1_Click() Select Case Combo1.ListIndex Case 0 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Chiller.jpg") Case 1 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Edwardian.jpg") Case 2 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\gigi.jpg") Case 3 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\pristina.jpg") Case 4 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\rage.jpg") Case 5 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Berlins Sans FB.jpg") Case 6 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Consolas Italic.jpg") Case 7 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Estrangelo Edessa.jpg") Case 8 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\FangSong.jpg") Case 9 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Gungsung.jpg") Case 10 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\KaiTi.jpg") Case 11 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Lucida Handwriting.jpg") Case 12 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Meiryo.jpg") Case 13 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Old English Text MT.jpg") Case 14 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Viner Hand ITC.jpg") End Select End Sub Private Sub Combo2_Click() Select Case Combo2.ListIndex Case 0 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Alz Brother.jpg") Case 1 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Barcelonista.jpg") Case 2 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Brain Touch.jpg") Case 3 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Cherrybelle.jpg") Case 4 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Disappointed.jpg") Case 5 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Liverpool.jpg") Case 6 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Madridista.jpg") Case 7 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Pes 2013.jpg") Case 8 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\The Red Devils.jpg") End Select End Sub Private Sub SSTab4_DblClick() End Sub

itu codding hasil tambahan dri cara kang archy, dan hsilnya jadi kyak gini [You must be registered and logged in to see this image.]
Nah kan kliatannya cuma 1 pdhal di bawahnya itu bisa di klik juga dan bisa di apply jdi kyak yg transparan gitu, jadi klo saya mau buat Hrus rebuild dri awal?

Seblumnya saya pke codding ini

Code:: Private Sub Combo1_Change() Combo1.AddItem ("Chiller Font") Combo1.AddItem ("Edwardian Font") Combo1.AddItem ("Gigi Font") Combo1.AddItem ("Pristina Font") Combo1.AddItem ("Rage Font") Combo1.AddItem ("Berlin Sans FB Font") Combo1.AddItem ("Consolas Italic Font") Combo1.AddItem ("Estrangelo Edessa Font") Combo1.AddItem ("Fang Song Font") Combo1.AddItem ("Gungsung Font") Combo1.AddItem ("KaiTi Font") Combo1.AddItem ("Lucida Handwriting Font") Combo1.AddItem ("Meiryo Font") Combo1.AddItem ("Old English Text MT Font") Combo1.AddItem ("Viner Hand ITC Font") End Sub Private Sub Combo2_Change() Combo2.AddItem ("Alz Brother") Combo2.AddItem ("Barcelonista") Combo2.AddItem ("Brain Touch") Combo2.AddItem ("Cherrybelle") Combo2.AddItem ("Disappointed") Combo2.AddItem ("Liverpool") Combo2.AddItem ("Madridista") Combo2.AddItem ("Pes 2013") Combo2.AddItem ("The Red Devils") End Sub Private Sub Command1_Click() Select Case Combo2.ListIndex Case 0 FileCopy (App.Path + "\Selector\Header Selector\Header\Alz Brother\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 1 FileCopy (App.Path + "\Selector\Header Selector\Header\Barcelonista\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 2 FileCopy (App.Path + "\Selector\Header Selector\Header\Brain Touch\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 3 FileCopy (App.Path + "\Selector\Header Selector\Header\Cherrybelle\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 4 FileCopy (App.Path + "\Selector\Header Selector\Header\Disappointed\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 5 FileCopy (App.Path + "\Selector\Header Selector\Header\Liverpool\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 6 FileCopy (App.Path + "\Selector\Header Selector\Header\Madridista\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 7 FileCopy (App.Path + "\Selector\Header Selector\Header\Pes 2013\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 8 FileCopy (App.Path + "\Selector\Header Selector\Header\The Red Devils\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") End Select End Sub Private Sub Command3_Click() Select Case Combo1.ListIndex Case 0 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Chiller\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 1 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Edwardian\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 2 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Gigi\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 3 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Pristina\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 4 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Rage\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 5 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Berlin Sans FB\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 6 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Consolas Italic\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 7 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Estrangelo Edessa\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 8 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Fang Song\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 9 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Gungsung\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 10 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font KaiTi\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 11 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Lucida Handwriting\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 12 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Meiryo\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 13 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Old English Text MT\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 14 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Viner Hand ITC\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") End Select End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Combo1.AddItem ("Chiller Font") Combo1.AddItem ("Edwardian Font") Combo1.AddItem ("Gigi Font") Combo1.AddItem ("Pristina Font") Combo1.AddItem ("Rage Font") Combo1.AddItem ("Berlin Sans FB Font") Combo1.AddItem ("Consolas Italic Font") Combo1.AddItem ("Estrangelo Edessa Font") Combo1.AddItem ("Fang Song Font") Combo1.AddItem ("Gungsung Font") Combo1.AddItem ("KaiTi Font") Combo1.AddItem ("Lucida Handwriting Font") Combo1.AddItem ("Meiryo Font") Combo1.AddItem ("Old English Text MT Font") Combo1.AddItem ("Viner Hand ITC Font") Combo2.AddItem ("Alz Brother") Combo2.AddItem ("Barcelonista") Combo2.AddItem ("Brain Touch") Combo2.AddItem ("Cherrybelle") Combo2.AddItem ("Disappointed") Combo2.AddItem ("Liverpool") Combo2.AddItem ("Madridista") Combo2.AddItem ("Pes 2013") Combo2.AddItem ("The Red Devils") End Sub Private Sub Combo1_Click() Select Case Combo1.ListIndex Case 0 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Chiller.jpg") Case 1 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Edwardian.jpg") Case 2 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\gigi.jpg") Case 3 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\pristina.jpg") Case 4 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\rage.jpg") Case 5 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Berlins Sans FB.jpg") Case 6 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Consolas Italic.jpg") Case 7 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Estrangelo Edessa.jpg") Case 8 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\FangSong.jpg") Case 9 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Gungsung.jpg") Case 10 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\KaiTi.jpg") Case 11 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Lucida Handwriting.jpg") Case 12 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Meiryo.jpg") Case 13 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Old English Text MT.jpg") Case 14 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Viner Hand ITC.jpg") End Select End Sub Private Sub Combo2_Click() Select Case Combo2.ListIndex Case 0 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Alz Brother.jpg") Case 1 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Barcelonista.jpg") Case 2 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Brain Touch.jpg") Case 3 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Cherrybelle.jpg") Case 4 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Disappointed.jpg") Case 5 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Liverpool.jpg") Case 6 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Madridista.jpg") Case 7 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Pes 2013.jpg") Case 8 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\The Red Devils.jpg") End Select End Sub Private Sub SSTab4_DblClick() End Sub

Dan hsilnya gini
[You must be registered and logged in to see this image.]

by **Ardhy Child** Fri Jun 22, 2012 1:11 pm

FajarNauval wrote:kang File .txt yg mau di load tuh yang mana?

Code:
untuk bagian command button : Private Sub Command1_Click() List1.AddItem Text1.Text Open App.Path + "\Index_Name.txt" For Output As #1 For i = 0 To List1.ListCount - 1 Print #1, List1.List(i) Next Close End Sub
Atau yg ini
Code:
Private Sub Form_Load() Call SaveLoadListbox(List1, App.Path + "\Index_Name.txt", "load") End Sub

Loh yang saya tebeli, mana saya tau yang mau di load yang mana [Tutor] Membuat Selector dengan VB6 - Page 2 457652

FajarNauval wrote:Mau ngsih Laporan
Code:
Private Sub SaveLoadCombobox(plstLB As ComboBox, _ pstrFileName As String, _ pstrSaveOrLoad As String) Dim strListItems As String Dim lcS As String Dim i As Long Dim lcF As String Select Case pstrSaveOrLoad Case "load" plstLB.Clear Open pstrFileName For Input As #1 While Not EOF(1) Line Input #1, strListItems plstLB.AddItem strListItems Wend Close #1 End Select End Sub Private Sub Combo1_Change() Combo1.AddItem ("Chiller Font") Combo1.AddItem ("Edwardian Font") Combo1.AddItem ("Gigi Font") Combo1.AddItem ("Pristina Font") Combo1.AddItem ("Rage Font") Combo1.AddItem ("Berlin Sans FB Font") Combo1.AddItem ("Consolas Italic Font") Combo1.AddItem ("Estrangelo Edessa Font") Combo1.AddItem ("Fang Song Font") Combo1.AddItem ("Gungsung Font") Combo1.AddItem ("KaiTi Font") Combo1.AddItem ("Lucida Handwriting Font") Combo1.AddItem ("Meiryo Font") Combo1.AddItem ("Old English Text MT Font") Combo1.AddItem ("Viner Hand ITC Font") End Sub Private Sub Combo2_Change() Combo2.AddItem ("Alz Brother") Combo2.AddItem ("Barcelonista") Combo2.AddItem ("Brain Touch") Combo2.AddItem ("Cherrybelle") Combo2.AddItem ("Disappointed") Combo2.AddItem ("Liverpool") Combo2.AddItem ("Madridista") Combo2.AddItem ("Pes 2013") Combo2.AddItem ("The Red Devils") End Sub Private Sub Command1_Click() Select Case Combo2.ListIndex Case 0 FileCopy (App.Path + "\Selector\Header Selector\Header\Alz Brother\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 1 FileCopy (App.Path + "\Selector\Header Selector\Header\Barcelonista\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 2 FileCopy (App.Path + "\Selector\Header Selector\Header\Brain Touch\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 3 FileCopy (App.Path + "\Selector\Header Selector\Header\Cherrybelle\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 4 FileCopy (App.Path + "\Selector\Header Selector\Header\Disappointed\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 5 FileCopy (App.Path + "\Selector\Header Selector\Header\Liverpool\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 6 FileCopy (App.Path + "\Selector\Header Selector\Header\Madridista\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 7 FileCopy (App.Path + "\Selector\Header Selector\Header\Pes 2013\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 8 FileCopy (App.Path + "\Selector\Header Selector\Header\The Red Devils\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") End Select End Sub Private Sub Command3_Click() Select Case Combo1.ListIndex Case 0 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Chiller\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 1 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Edwardian\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 2 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Gigi\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 3 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Pristina\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 4 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Rage\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 5 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Berlin Sans FB\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 6 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Consolas Italic\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 7 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Estrangelo Edessa\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 8 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Fang Song\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 9 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Gungsung\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 10 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font KaiTi\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 11 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Lucida Handwriting\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 12 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Meiryo\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 13 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Old English Text MT\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 14 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Viner Hand ITC\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") End Select End Sub Private Sub Command2_Click() End End Sub Private Sub Command5_Click() Combo1.AddItem Combo1.Text Open App.Path + "\Selector\Map.txt" For Output As #1 For i = 0 To Combo1.ListCount - 1 Print #1, Combo1.List(i) Next Close End Sub Private Sub Form_Load() Combo1.AddItem ("Chiller Font") Combo1.AddItem ("Edwardian Font") Combo1.AddItem ("Gigi Font") Combo1.AddItem ("Pristina Font") Combo1.AddItem ("Rage Font") Combo1.AddItem ("Berlin Sans FB Font") Combo1.AddItem ("Consolas Italic Font") Combo1.AddItem ("Estrangelo Edessa Font") Combo1.AddItem ("Fang Song Font") Combo1.AddItem ("Gungsung Font") Combo1.AddItem ("KaiTi Font") Combo1.AddItem ("Lucida Handwriting Font") Combo1.AddItem ("Meiryo Font") Combo1.AddItem ("Old English Text MT Font") Combo1.AddItem ("Viner Hand ITC Font") Combo2.AddItem ("Alz Brother") Combo2.AddItem ("Barcelonista") Combo2.AddItem ("Brain Touch") Combo2.AddItem ("Cherrybelle") Combo2.AddItem ("Disappointed") Combo2.AddItem ("Liverpool") Combo2.AddItem ("Madridista") Combo2.AddItem ("Pes 2013") Combo2.AddItem ("The Red Devils") Call SaveLoadCombobox(Combo1, App.Path + "\Selector\Map.txt", "load") End Sub Private Sub Combo1_Click() Select Case Combo1.ListIndex Case 0 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Chiller.jpg") Case 1 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Edwardian.jpg") Case 2 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\gigi.jpg") Case 3 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\pristina.jpg") Case 4 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\rage.jpg") Case 5 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Berlins Sans FB.jpg") Case 6 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Consolas Italic.jpg") Case 7 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Estrangelo Edessa.jpg") Case 8 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\FangSong.jpg") Case 9 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Gungsung.jpg") Case 10 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\KaiTi.jpg") Case 11 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Lucida Handwriting.jpg") Case 12 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Meiryo.jpg") Case 13 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Old English Text MT.jpg") Case 14 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Viner Hand ITC.jpg") End Select End Sub Private Sub Combo2_Click() Select Case Combo2.ListIndex Case 0 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Alz Brother.jpg") Case 1 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Barcelonista.jpg") Case 2 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Brain Touch.jpg") Case 3 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Cherrybelle.jpg") Case 4 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Disappointed.jpg") Case 5 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Liverpool.jpg") Case 6 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Madridista.jpg") Case 7 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Pes 2013.jpg") Case 8 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\The Red Devils.jpg") End Select End Sub Private Sub SSTab4_DblClick() End Sub
itu codding hasil tambahan dri cara kang archy, dan hsilnya jadi kyak gini [You must be registered and logged in to see this image.]
Nah kan kliatannya cuma 1 pdhal di bawahnya itu bisa di klik juga dan bisa di apply jdi kyak yg transparan gitu, jadi klo saya mau buat Hrus rebuild dri awal?

Seblumnya saya pke codding ini
Code:
Private Sub Combo1_Change() Combo1.AddItem ("Chiller Font") Combo1.AddItem ("Edwardian Font") Combo1.AddItem ("Gigi Font") Combo1.AddItem ("Pristina Font") Combo1.AddItem ("Rage Font") Combo1.AddItem ("Berlin Sans FB Font") Combo1.AddItem ("Consolas Italic Font") Combo1.AddItem ("Estrangelo Edessa Font") Combo1.AddItem ("Fang Song Font") Combo1.AddItem ("Gungsung Font") Combo1.AddItem ("KaiTi Font") Combo1.AddItem ("Lucida Handwriting Font") Combo1.AddItem ("Meiryo Font") Combo1.AddItem ("Old English Text MT Font") Combo1.AddItem ("Viner Hand ITC Font") End Sub Private Sub Combo2_Change() Combo2.AddItem ("Alz Brother") Combo2.AddItem ("Barcelonista") Combo2.AddItem ("Brain Touch") Combo2.AddItem ("Cherrybelle") Combo2.AddItem ("Disappointed") Combo2.AddItem ("Liverpool") Combo2.AddItem ("Madridista") Combo2.AddItem ("Pes 2013") Combo2.AddItem ("The Red Devils") End Sub Private Sub Command1_Click() Select Case Combo2.ListIndex Case 0 FileCopy (App.Path + "\Selector\Header Selector\Header\Alz Brother\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 1 FileCopy (App.Path + "\Selector\Header Selector\Header\Barcelonista\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 2 FileCopy (App.Path + "\Selector\Header Selector\Header\Brain Touch\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 3 FileCopy (App.Path + "\Selector\Header Selector\Header\Cherrybelle\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 4 FileCopy (App.Path + "\Selector\Header Selector\Header\Disappointed\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 5 FileCopy (App.Path + "\Selector\Header Selector\Header\Liverpool\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 6 FileCopy (App.Path + "\Selector\Header Selector\Header\Madridista\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 7 FileCopy (App.Path + "\Selector\Header Selector\Header\Pes 2013\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") Case 8 FileCopy (App.Path + "\Selector\Header Selector\Header\The Red Devils\unnamed_55.bin"), (App.Path + "\G1server\data-img\img\dt06.img\unnamed_55.bin") MsgBox ("Your Selected Header Installed Successfully.") End Select End Sub Private Sub Command3_Click() Select Case Combo1.ListIndex Case 0 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Chiller\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 1 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Edwardian\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 2 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Gigi\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 3 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Pristina\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 4 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Rage\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 5 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Berlin Sans FB\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 6 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Consolas Italic\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 7 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Estrangelo Edessa\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 8 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Fang Song\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 9 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Gungsung\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 10 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font KaiTi\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 11 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Lucida Handwriting\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 12 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Meiryo\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 13 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Old English Text MT\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") Case 14 FileCopy (App.Path + "\Selector\Font Selector\FONT\Font Viner Hand ITC\unnamed_27.bin"), (App.Path + "\G1server\data-img\img\dt05_e.img\unnamed_27.bin") MsgBox ("Your Selected Font Installed Successfully.") End Select End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Combo1.AddItem ("Chiller Font") Combo1.AddItem ("Edwardian Font") Combo1.AddItem ("Gigi Font") Combo1.AddItem ("Pristina Font") Combo1.AddItem ("Rage Font") Combo1.AddItem ("Berlin Sans FB Font") Combo1.AddItem ("Consolas Italic Font") Combo1.AddItem ("Estrangelo Edessa Font") Combo1.AddItem ("Fang Song Font") Combo1.AddItem ("Gungsung Font") Combo1.AddItem ("KaiTi Font") Combo1.AddItem ("Lucida Handwriting Font") Combo1.AddItem ("Meiryo Font") Combo1.AddItem ("Old English Text MT Font") Combo1.AddItem ("Viner Hand ITC Font") Combo2.AddItem ("Alz Brother") Combo2.AddItem ("Barcelonista") Combo2.AddItem ("Brain Touch") Combo2.AddItem ("Cherrybelle") Combo2.AddItem ("Disappointed") Combo2.AddItem ("Liverpool") Combo2.AddItem ("Madridista") Combo2.AddItem ("Pes 2013") Combo2.AddItem ("The Red Devils") End Sub Private Sub Combo1_Click() Select Case Combo1.ListIndex Case 0 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Chiller.jpg") Case 1 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Edwardian.jpg") Case 2 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\gigi.jpg") Case 3 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\pristina.jpg") Case 4 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\rage.jpg") Case 5 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Berlins Sans FB.jpg") Case 6 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Consolas Italic.jpg") Case 7 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Estrangelo Edessa.jpg") Case 8 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\FangSong.jpg") Case 9 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Gungsung.jpg") Case 10 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\KaiTi.jpg") Case 11 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Lucida Handwriting.jpg") Case 12 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Meiryo.jpg") Case 13 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Old English Text MT.jpg") Case 14 Image1.Picture = LoadPicture(App.Path + "\Selector\Font Selector\Preview\Viner Hand ITC.jpg") End Select End Sub Private Sub Combo2_Click() Select Case Combo2.ListIndex Case 0 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Alz Brother.jpg") Case 1 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Barcelonista.jpg") Case 2 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Brain Touch.jpg") Case 3 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Cherrybelle.jpg") Case 4 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Disappointed.jpg") Case 5 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Liverpool.jpg") Case 6 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Madridista.jpg") Case 7 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\Pes 2013.jpg") Case 8 Image2.Picture = LoadPicture(App.Path + "\Selector\Header Selector\Preview\The Red Devils.jpg") End Select End Sub Private Sub SSTab4_DblClick() End Sub
Dan hsilnya gini
[You must be registered and logged in to see this image.]

bingung

[Tutor] Membuat Selector dengan VB6 - Page 2 704971

by **FajarNauval** Fri Jun 22, 2012 1:13 pm

Ya, knp wktu saya Tambahin pke codding pnya akang, pas klik combo box, cuma kluar "Font" (Yang ada Di .txt)

by **Ardhy Child** Fri Jun 22, 2012 1:28 pm

tujuannya kan load isi dari data txt nya kang.

by **FajarNauval** Fri Jun 22, 2012 1:37 pm

Ardhy Child wrote:tujuannya kan load isi dari data txt nya kang.

Iya, jdi Kyaknya harus Buat dri awal mungkin? Soalnya Pusing klo di terusin

by Sponsored content