Exclusively for Visual Basic 6.0 Programmers Only!

[raff_09m]

wow ayos talaga tong thread na to..hehehe pero sana wag maxado basic yung pagusapan dito..maganda kung extreme na...yung advanced coding na...hehehe comment lang naman..

 

[vrynxzent]

wow ayos talaga tong thread na to..hehehe pero sana wag maxado basic yung pagusapan dito..maganda kung extreme na...yung advanced coding na...hehehe comment lang naman..

hehe.. aabot din tayo jan.. medyo noob pa kasi me eh^^>. pero bosing, pwede pa share naman ng kaalaman mo sa VB?

 

[raff_09m]

hmmm sige basta po tanong ka lang kung anu gusto mo po..hehehe

 

[vrynxzent]

hmmm sige basta po tanong ka lang kung anu gusto mo po..hehehe

nice.. dami sources.. im sure, ang bilis kong maging pro dito...


bosing 1st question..

diba yung form, rectangle, square.. basta 4 sided.. hehe

paano yung may ibang form xa bosing/? example, gawin kong diamond.. or spade... or club... or heart..

 

[johntotetwoo]

just use an activeX control just like yng binigay ko sayo (IrregForm.ocx)

 

[snorli]

boss i have problem..ggwa kc kmi ng proj..cctv camera smin..may sample code ba kau jan pra sa mga ganun?

 

[raff_09m]

nice.. dami sources.. im sure, ang bilis kong maging pro dito...


bosing 1st question..

diba yung form, rectangle, square.. basta 4 sided.. hehe

paano yung may ibang form xa bosing/? example, gawin kong diamond.. or spade... or club... or heart..

Heto po try mo po tong mga code nato..tapos try to explore it to your self and make changes na lang ha...

View attachment 12064

 

[vrynxzent]

Heto po try mo po tong mga code nato..tapos try to explore it to your self and make changes na lang ha...

View attachment 104494

tnx bosing..

 

[johntotetwoo]

ok yun ah. .d na gumamit ng ActiveX

 

[raff_09m]

hehehe salamat sa thanks mo..ajejeje

 

[johntotetwoo]

guys cnong may code kung paano magscan ng folders at subfolders sa loob ng folder. .hehe

 

[vrynxzent]

isang tanong tungkol sa looping..

mga masters..

may 5 labels ako.. (Label1, Label2, Label3, Label4, Label5)
tapos gusto ko, each may number na 1, 2, 3, 4, 5...


then paano po yun i loop?

dim i as integer

for i = 1

label(i).caption = i ------------------> yung label(i) po dapat naka loop din na each execution ng loop, mag change siya to label1, label2..

increment yung i + 1

then loop agen until it reach i = 5


paano po to gawin.. ? gets nyo?

 

[johntotetwoo]

isang tanong tungkol sa looping..

mga masters..

may 5 labels ako.. (Label1, Label2, Label3, Label4, Label5)
tapos gusto ko, each may number na 1, 2, 3, 4, 5...


then paano po yun i loop?

dim i as integer

for i = 1

label(i).caption = i ------------------> yung label(i) po dapat naka loop din na each execution ng loop, mag change siya to label1, label2..

increment yung i + 1

then loop agen until it reach i = 5


paano po to gawin.. ? gets nyo?

since array yung label mo try this:

Dim lLoop as integer

For lLoop = 1 to 5
label(lLoop).caption = lLoop
next lLoop

 

[vrynxzent]

since array yung label mo try this:

Dim lLoop as integer

For lLoop = 1 to 5
label(lLoop).caption = lLoop
next lLoop

not functioning po sir..

sub or function not defined daw..

 

[johntotetwoo]

not functioning po sir..

sub or function not defined daw..

check the index of your array bro. .

 

[brienne]

Try this sir, check din sir if your labels are array, if array your label name should be look like this: label1(0),label1(1),label1(2),label1(3),label1(4).

If array napo yung label mo your code should be like this

Dim lLoop as integer

For lLoop = 1 to 5
label(lLoop).caption = "label" & lLoop
next

 

[Verbal]

isang tanong tungkol sa looping..

mga masters..

may 5 labels ako.. (Label1, Label2, Label3, Label4, Label5)
tapos gusto ko, each may number na 1, 2, 3, 4, 5...


then paano po yun i loop?

dim i as integer

for i = 1

label(i).caption = i ------------------> yung label(i) po dapat naka loop din na each execution ng loop, mag change siya to label1, label2..

increment yung i + 1

then loop agen until it reach i = 5


paano po to gawin.. ? gets nyo?

hindi ko masyadong clear gusto mo pero either way, if you want to fill up each label ng "1, 2, 3, 4 5"...

Option Explicit

Private Sub Command1_Click()
    Dim counter As Integer
    Dim filler As Integer
    
    For counter = 0 To Label.UBound
        For filler = 1 To 5
            Label(counter).Caption = Label(counter).Caption & " " & filler
        Next
    Next
End Sub

if you mean each label should have each # then

Option Explicit

Private Sub Command1_Click()
    Dim counter As Integer
    
    For counter = 0 To Label.UBound
        Label(counter).Caption = counter + 1
    Next
End Sub

 

[johntotetwoo]

hindi ko masyadong clear gusto mo pero either way, if you want to fill up each label ng "1, 2, 3, 4 5"...

Option Explicit

Private Sub Command1_Click()
    Dim counter As Integer
    Dim filler As Integer
    
    For counter = 0 To Label.UBound
        For filler = 1 To 5
            Label(counter).Caption = Label(counter).Caption & " " & filler
        Next
    Next
End Sub

if you mean each label should have each # then

Option Explicit

Private Sub Command1_Click()
    Dim counter As Integer
    
    For counter = 0 To Label.UBound
        Label(counter).Caption = counter + 1
    Next
End Sub

do you have bubble sorting code?

 

[Verbal]

^ wala

 

[johntotetwoo]

haha anyways im currently looking for a code that scans folder and subfolders inside the folder