Адресная книга на языка Visual Basic
Контрольная работа - Компьютеры, программирование
Другие контрольные работы по предмету Компьютеры, программирование
p>
End If
If chkOnTop.Value = 1 Then
SetTop frmMain.hWnd, True
Else
SetTop frmMain.hWnd, False
End If
Unload Me
End Sub
Private Sub Form_Load()
On Error Resume Next
txtPort = Reg.RegRead("HKCU\Book\Port")
chkOnTop.Value = Reg.RegRead("HKCU\Book\OnTop")
optDialMode(Reg.RegRead("HKCU\Book\DialMode")).Value = True
If Reg.RegRead("HKCU\Book\OnTop") = True Then SetTop hWnd, True
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Not IsNumeric(txtPort) Then
MsgBox "Поле номера порта модема должно быть цифровым"
Cancel = True
End If
End Sub
Private Sub txtPort_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) And Not KeyAscii = 8 Then KeyAscii = 0
End Sub
FrmAbout
Option Explicit
Private Sub butOk_Click()
Unload Me
End Sub
ModMain
Option Explicit
Public Declare Function DrawEdge Lib "user32" (ByVal hdc As Long, qrc As Rect, ByVal edge As Long, ByVal grfFlags As Long) As Long
Public Declare Function SystemParametersInfoA Lib "user32" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Declare Function GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect As Rect) As Long
Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String) As Long
Public Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Type Rect
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Type UserInfo
strName As String
strOtchectvo As String
strFamilia As String
strAdress As String
strDoma As String
strKvartira As String
strPhone As String
strComment As String
End Type
Public User() As UserInfo
Public lngIndex As Long
Public Reg As Object
Public blnDial As Boolean
Public Const Square As Long = &H1 Or &H2 Or &H4 Or &H8
Для поиска
Public bPoisk As Boolean
Sub Main()
Set Reg = CreateObject("WSCRIPT.SHELL")
If App.PrevInstance = True Then
MsgBox "Программа уже запущенна..."
Else
Load frmMain
frmMain.Show
End If
End Sub
Public Sub SetTop(hWnd As Long, Top As Boolean)
Select Case Top
Case True
SetWindowPos hWnd, -1, 0, 0, 0, 0, 1 Or 2 Or 16
Case False
SetWindowPos hWnd, -2, 0, 0, 0, 0, 1 Or 2 Or 16
End Select
End Sub
Public Function Path() As String
If Right(App.Path, 1) = "\" Then Path = App.Path Else Path = App.Path & "\"
End Function
Public Function Exist(strFileName As String) As Boolean
If Dir(strFileName) = vbNullString Then Exist = False Else Exist = True
End Function
Использованные источники и литература
1.Программа помощи VB
2.Материалы сайта ">
3.Материалы сайта
4.Материалы сайта www.FileArea.co.il