unique input(VB6)

[hustlas4ever]

---

try ang chr() function...

MsgBox Chr(34) & "Hello" & Chr(34)

whooaa!!
galinga oie...salamat...

[darkhero]

no probs

[hustlas4ever]

aie sir,

naa pa diay qy pangutana...

unsaun man arun para letters lang ang pwd ma input sa text box?? kanang dili pwd numbers...

[darkhero]

aie sir,

naa pa diay qy pangutana...

unsaun man arun para letters lang ang pwd ma input sa text box?? kanang dili pwd numbers...

sa keypress event na sa textbox bro... try ni...

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case 65 To 90, 97 To 122, 8
            'A-Z kay 65-90 sa ASCII
            'a-z kay 97-122 sa ASCII
            'backspace kay 8 sa ASCII
        Case Else
            'i-cancel ang uban keys by
            'setting the KeyAscii to 0
            KeyAscii = 0
    End Select
End Sub

i-compare ang ASCII values nga gipanggamit sa table below...

[hustlas4ever]

sa keypress event na sa textbox bro... try ni...

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case 65 To 90, 97 To 122, 8
            'A-Z kay 65-90 sa ASCII
            'a-z kay 97-122 sa ASCII
            'backspace kay 8 sa ASCII
        Case Else
            'i-cancel ang uban keys by
            'setting the KeyAscii to 0
            KeyAscii = 0
    End Select
End Sub

i-compare ang ASCII values nga gipanggamit sa table below...

salamat jud kaau ug dako sir...

hasta naju'ng hayaga sa defense unya...hehehe..

kulbaan ko kay taga daily inquirer daw lage ang panel ana amo prof, maau unta ug nangatik ra xa...
hehehe...

salamat usab sir sa tabang...

[darkhero]

no probs! good luck sa defense... silhiga ang panelista

[hustlas4ever]

@darkhero
humana ang defense...amoang system daw ang pinaka unique kumpara sa ubang classmate...hahahaha...(hilasa oie...)

ang icons ug error handling ang naka dala'g bida atoh bah, mao na salamat kau ug dako sir...

sipyat lang ko diri dapita,

sa keypress event na sa textbox bro... try ni...

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case 65 To 90, 97 To 122, 8
            'A-Z kay 65-90 sa ASCII
            'a-z kay 97-122 sa ASCII
            'backspace kay 8 sa ASCII
        Case Else
            'i-cancel ang uban keys by
            'setting the KeyAscii to 0
            KeyAscii = 0
    End Select
End Sub

i-compare ang ASCII values nga gipanggamit sa table below...

kay nakalimot ko ug apil sa space...ana pa ko nga "guba maning spacebar sir..." bwahahahaha!!
pagtan-aw sa codes, sa codes jud diay ang mali...hahaha!!

share lang ko sa ka-agi ganina kay nalingaw ko sa defense...ingnan pajud nga uniqe daw lage...kinsa'y dili ganahan ana...hehehe...

salamat jud sir...networking ug database naq sunod sem...mag samuk-samuk napud ko diri sa istorya...hehehe...

thanks...^__^

[darkhero]

cge bro, sunod semester na pud congratz!

[NewBenz]

^^ maka hinumdom man sad ta sa time na ni eskwela pa ta ani!!!
heheheh, wla lng ^^.