Visual Basic 6.0

Visual Basic 6.0

Slip22

Q.3) Write a VB program to load picture box at a runtime. [Marks 15]

Solution

Dim WithEvents pic As PictureBox
Private Sub Form_Load()
Set pic = Controls.Add("vb.picturebox", "pic")
pic.Left = 1680
pic.Top = 1320
pic.Visible = True
End Sub

Private Sub pic_click()
pic.Picture = LoadPicture("d:\a.jpg")
End Sub

Output

Q.4) Write a VB program to accept the details of students from user & store details in to the
database. Using data environment create report. (Use standard ADODC controls)
Student (S_Rollno, S_Name, S_Class, S_Address ) [Marks 25]


Same As Slip 5