One-to-Many or Master-Detail Data entry in Visual Basic .Net

0 comments

Posted on 4th December 2011 by Kenneth in Visual Basic .Net

, ,

Visual Basic .Net sample project on how to create a One-to-Many (Master-Detail) Data entry form using the Data Sources Window and the Windows Forms designer in Visual Studio. This project connect the database Order as the master or parent then retrieve the order details as the child. Get the source code here


 

How to use Message Box

0 comments

Posted on 15th April 2010 by Kenneth in System API |Visual Basic 6

, , ,

‘This tutorial pop-up a message to user to confirm. Here’s the code

Private Sub Command1_Click()
Dim myValue As String
myValue = MsgBox(“Are your sure you want to delete this file?”, vbQuestion + vbYesNo, “Confirm Delete”)
If myValue = vbNo Then Exit Sub ‘ Do nothing
‘—- Do some codes here to delete record in database

End Sub

Parameters

Prompt
Required.String expression displayed as the message in the dialog box. The maximum length ofPromptis approximately 1024 characters, depending on the width of the characters used. IfPromptconsists of more than one line, you can separate the lines using a carriage return character (Chr(13)), a line feed character (Chr(10)), or a carriage return/linefeed character combination (Chr(13) &Chr(10)) between each line.

Buttons
Optional. Numeric expression that is the sum of values specifying the number and type of buttons to display, the icon style to use, the identity of the default button, and the modality of the message box. If you omitButtons, the default value is zero.

Title
Optional.String expression displayed in the title bar of the dialog box. If you omitTitle, the application name is placed in the title bar.

How to Limit Text box input to Numbers Only

0 comments

Posted on 15th April 2010 by Kenneth in Visual Basic 6

, , , , , ,

‘Declaration
Const DecNum = “1234567890.”
Const IntNum = “1234567890″

‘Call this function for Decimal Numbers

Function ConvertDec(KeyAscii) As Integer ‘Decimal
If KeyAscii > 26 Then
If (InStr(DecNum, Chr(KeyAscii)) = 0) Then
Numb = 0
Exit Function
End If
End If
ConvertDec = KeyAscii
End Function

‘Call this function for Integer Numbers Only
Function ConvertInt(KeyAscii) As Integer ‘Integer
If KeyAscii > 26 Then
If (InStr(IntNum, Chr(KeyAscii)) = 0) Then
Numb = 0
Exit Function
End If
End If
ConvertInt = KeyAscii
End Function

‘Sample Code in text box
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = ConvertDec(KeyAscii) ‘Decimal Numbers only
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
KeyAscii = ConvertInt(KeyAscii) ‘Integer Numbers only
End Sub

‘Sample Code in text box
Private Sub Combo1_KeyPress(KeyAscii As Integer)
KeyAscii = ConvertDec(KeyAscii) ‘Decimal Numbers only
End Sub
Private Sub Combo2_KeyPress(KeyAscii As Integer)
KeyAscii = ConvertInt(KeyAscii) ‘Integer Numbers only
End Sub