Visual Basic Tutorial

How to Disallow numeric input in Text box

[Whiz]~Czechoslovakia — Thu, 04 Dec 2008 10:51:01 GMT

Private Sub Text1_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
End If
End Sub

sample sql T_T

[Whiz]~Czechoslovakia — Fri, 28 Nov 2008 06:06:48 GMT

Option Explicit Public LoginSucceeded As Boolean ----------------------------------------------------- Private Sub cmdCancel_Click() 'set the global var to false 'to denote a failed login LoginSucceeded = False Me.Hide End Sub --------------------------------------------------------- Private Sub cmdOK_Click() 'check for any record, if there is no record there could be error when looping If Data1.Recordset.RecordCount = 0 Then MsgBox ("No recordset") Exit Sub End If 'check ...

Variables

_XiRuKi_ — Wed, 30 Apr 2008 08:45:43 GMT

the script Code: Dim myVariable1 Dim myVariable2 in action: Code: Dim myVariable1, myVariable2 now after the basic, set it now: Code: Dim myVariable1, myVariable2 myVariable1 = 22 myVariable2 = "Howdy" document.write("My number is " & myVariable1) document.write(" My string is " & myVariable2) another version : setting object (target) Quote: Dim myFirstObject SET myFirstObject = New myClass myFirstObject = nothing

Pop up msg box

_XiRuKi_ — Wed, 30 Apr 2008 08:47:40 GMT

hi, just wanna share it, hmmm as you can see, VB scripts are quite the same as javascripts... but i prefer java cause its easier than VB, 1st all we need is a script and form tag... Quote: that's all... lolx.. simple but full of virtue

Visual Basic Loading

[Whiz]~Cassey — Sat, 19 Apr 2008 04:10:59 GMT

timer1.enabled=true timer1.interval=100 image.width= image.width+100 if image.width=300 then form2.shom me.hide timer1.enabled=false Spoiler: actually its depend how long your loading

Confine Mouse

[Whiz]~Cassey — Sat, 19 Apr 2008 04:14:37 GMT

Private Sub Lock_Click() UnlockM.SetFocus 'Limits the Cursor movement to within the form. Dim client As RECT Dim upperleft As POINT 'Get information about the open form GetClientRect Me.hWnd, client upperleft.x = client.left upperleft.y = client.top 'Convert window co�rdinates to screen co�rdinates ClientToScreen Me.hWnd, upperleft OffsetRect client, upperleft.x, upperleft.y 'limit the cursor movement ClipCursor client End Sub

3 times attempt

[Whiz]~Czechoslovakia — Thu, 17 Apr 2008 08:59:06 GMT

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) Command2.Visible = True Command1.Visible = False End Sub Private Sub Command2_Click() Static x As Long x = x + 1 If Text1.Text = "Sonnie" And Text2.Text = "chronicles" Then frmloading.Show Unload Me Else If Text1.Text = "sonnie" And Text2.Text = "chronicles" Then frmloading.Show Unload Me Else If Text1.Text = "erneel" ...

Calculator

[Whiz]~Czechoslovakia — Thu, 17 Apr 2008 08:59:41 GMT

Option Explicit Dim Op1, Op2 Dim DecimalFlag As Integer Dim NumOps As Integer Dim LastInput Dim OpFlag Dim TempReadout Private Sub Cancel_Click() Readout = Format(0, "0.") Op1 = 0 Op2 = 0 Form_Load End Sub Private Sub CancelEntry_Click() Readout = Format(0, "0.") DecimalFlag = False LastInput = "CE" End Sub Private Sub Decimal_Click() If LastInput = "NEG" Then Readout = Format(0, "-0.") ...

Simple Calculator

[Whiz]~Czechoslovakia — Thu, 17 Apr 2008 09:00:06 GMT

Private Sub cmdcompute_Click() If optadd = True Then total = Val(Text1.Text) + Val(Text2.Text) Text3.Text = total ElseIf optsub = True Then total = Val(Text1.Text) - Val(Text2.Text) Text3.Text = total ElseIf optmul = True Then total = Val(Text1.Text) * Val(Text2.Text) Text3.Text = total ElseIf optdiv = True Then total = Val(Text1.Text) / ...

Time

[Whiz]~Czechoslovakia — Thu, 17 Apr 2008 09:00:31 GMT

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub