Tuesday, July 2, 2013

Create the following interface by utilizing the simple concepts discussed by your instructor.


Graphical User Interface:


Source Code:


Private Sub cmdClose_Click()
If MsgBox("Are you sure you want to end this program?", vbQuestion + vbYesNo, "Hello World Application") = vbYes Then
    End
End If
End Sub

Private Sub cmdPrint_Click()
If cmdPrint.Caption = "&Print" Then
    txtPrint.Text = "Hello World!"
    cmdPrint.Caption = "&Clear"
Else
    txtPrint.Text = ""
    cmdPrint.Caption = "&Print"
End If
End Sub

Private Sub Form_Load()
'Setting off the form on the center of the monitor.
    Me.Top = (Screen.Height - Me.Height) / 3
    Me.Left = (Screen.Width - Me.Width) / 2
End Sub

Download the Full Project by clicking here.

0 comments :

Post a Comment