Call LoadDataGrid txtName.Text = "" txtRollNo.Text = "" MsgBox "Record saved successfully!", vbInformation End Sub
Private Sub cmdVolume_Change() wmpPlayer.settings.volume = sldVolume.Value End Sub
Private Sub picCanvas_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If drawing Then picCanvas.Line (oldX, oldY)-(X, Y), vbBlack oldX = X oldY = Y End If End Sub
Private Sub cmdAdd_Click() If txtName.Text = "" Then MsgBox "Enter student name", vbExclamation Exit Sub End If With rsStudents .AddNew !RollNo = txtRollNo.Text !StudentName = txtName.Text !Marks = txtMarks.Text .Update End With
Call LoadDataGrid txtName.Text = "" txtRollNo.Text = "" MsgBox "Record saved successfully!", vbInformation End Sub
Private Sub cmdVolume_Change() wmpPlayer.settings.volume = sldVolume.Value End Sub visual basic 6.0 projects with source code
Private Sub picCanvas_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If drawing Then picCanvas.Line (oldX, oldY)-(X, Y), vbBlack oldX = X oldY = Y End If End Sub Call LoadDataGrid txtName
Private Sub cmdAdd_Click() If txtName.Text = "" Then MsgBox "Enter student name", vbExclamation Exit Sub End If With rsStudents .AddNew !RollNo = txtRollNo.Text !StudentName = txtName.Text !Marks = txtMarks.Text .Update End With Shift As Integer