能实现什么功能?
这是我保存的一个例子,不过我也是菜鸟,我也看不大懂, Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Private Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lplFileName As String) As Long
Private r As Long Private entry As String Private iniPath As String
Function GetFromINI(AppName As String, KeyName As String, FileName As String) As String Dim RetStr As String RetStr = String(255, Chr(0)) GetFromINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), FileName)) End Function
Private Sub Command1_Click() Text1.Text = GetFromINI("注册信息", "序列号", iniPath) End Sub
Private Sub Command8_Click() End End Sub
Private Sub Command2_Click() Text2.Text = GetFromINI("用户信息", "姓名", iniPath) End Sub
Private Sub Command4_Click() entry$ = Text1.Text r = WritePrivateProfileString("注册信息", "序列号", entry, iniPath) If r <> 1 Then MsgBox "写序列号出错!" End Sub
Private Sub Command5_Click() entry = Text2.Text r = WritePrivateProfileString("用户信息", "姓名", entry, iniPath) If r <> 1 Then MsgBox "写姓名出错!" End Sub
Private Sub Command7_Click() Text1.Text = GetFromINI("注册信息", "序列号", iniPath) Text2.Text = GetFromINI("用户信息", "姓名", iniPath) End Sub
Private Sub Command3_Click() Command4_Click Command5_Click End Sub
Private Sub Command6_Click() Text1.Text = "" Text2.Text = "" End Sub
Private Sub Form_Load() '************************************************************ '* '* 名称 : RWINI32 '* 日期 : 26/3/2000 '* 作者 : 天一工作室 '* 主页 : http://tyvb.126.com '* Email: sst95@21cn.com '* 主要功能: 读写INI文件 '* '************************************************************ iniPath$ = App.Path + "\rwini32.ini" Command7_Click End Sub
Private Sub lblMyMail_Click() ShellExecute hwnd, "open", "", vbNullString, vbNullString, 0 End Sub
Private Sub lblMyWeb_Click() ShellExecute 0, "open", "", vbNullString, vbNullString, 3 End Sub
[此贴子已经被作者于2005-9-16 13:59:54编辑过]