VB 两小时

VB 两小时
2011年09月25日
  Option Explicit
  Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameter 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 lpFileName As String) As Long
  Private r As Long
  Private entry As String
  Private iniPath As String
  Function GetFormINI(AppName As String, KeyName As String, FileName As String) As String
  Dim RetStr As String
  RetStr = String(255, Chr(0))
  GetFormINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), FileName))
  End Function
  Private Sub Command1_Click()
  entry = Text1.Text
  r = WritePrivateProfileString("用户信息", "姓名", entry, iniPath)
  If r 1 Then MsgBox "写姓名出错!"
  End Sub
  Private Sub Command2_Click()
  Text1.Text = GetFormINI("用户信息", "姓名", iniPath)
  End Sub
  Private Sub Command3_Click()
  entry$ = Text2.Text
  r = WritePrivateProfileString("用户信息", "序列号", entry, iniPath)
  If r 1 Then MsgBox "写姓名出错!"
  End Sub
  Private Sub Command4_Click()
  Text2.Text = GetFormINI("用户信息", "序列号", iniPath)
  End Sub
  Private Sub Command5_Click()
  Text2.Text = GetFormINI("用户信息", "序列号", iniPath)
  Text1.Text = GetFormINI("用户信息", "姓名", iniPath)
  End Sub
  Private Sub Command6_Click()
  Command1_Click
  Command3_Click
  End Sub
  Private Sub Command7_Click()
  Text1.Text = ""
  Text2.Text = ""
  End Sub
  Private Sub Command8_Click()
  End
  End Sub
  Private Sub Form_Load()
  iniPath$ = App.Path + "\rwini32.ini"
  Command7_Click
  End Sub
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值