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
发表评论
-
Flex 与java 通信,通过BlazeDS
2012-01-20 01:26 587Flex 与java 通信,通过BlazeDS 2010年0 ... -
Flex 动态datagrid的应用
2012-01-20 01:26 483Flex 动态datagrid的应用 2 ... -
有意思的flex网站
2012-01-20 01:26 627有意思的flex网站 2010年12月22日 flex ... -
Flex学习收藏资料
2012-01-20 01:26 525Flex学习收藏资料 2010年09月16日 1、《Fl ... -
flex 自定义可视化组件的超级基类的属性设置
2012-01-20 01:26 984flex 自定义可视化组件 ... -
使用 Shell 属性及方法
2012-01-19 09:16 893使用 Shell 属性及方法 2 ... -
VB获取QQ2011安装路径
2012-01-19 09:16 484VB获取QQ2011安装路径 2011年05月23日 V ... -
VB关机代码
2012-01-19 09:16 666VB关机代码 2011年07月20日 .首先在Form1 ... -
VB 打开网络连接
2012-01-19 09:16 815VB 打开网络连接 2011年10月29日 Option ... -
opengl
2012-01-17 01:49 666opengl 2010年11月17日 ... -
转载:OpenGL显示文字
2012-01-17 01:49 577转载:OpenGL显示文字 2010年07月03日 本课 ... -
C#程序实现动态调用DLL的研究
2012-01-17 01:48 671C#程序实现动态调用DLL的研究 2011年04月26日 ... -
VC编译器配置及编译选项
2012-01-17 01:47 540VC编译器配置及编译选 ... -
WinCE驱动开发问题精华集锦
2012-01-17 01:47 592WinCE驱动开发问题精华 ... -
编译Touchlib出现问题(仍然尚未解决!)
2012-01-15 20:59 793编译Touchlib出现问题(仍然尚未解决!) 2009年1 ... -
摘嵌入式教案2
2012-01-15 20:59 566摘嵌入式教案2 2009年12 ... -
程序工具
2012-01-15 20:58 425程序工具 2010年10月15日 开发(Developm ... -
各种计算机语言的盘点
2012-01-15 20:58 519各种计算机语言的盘点 2010年01月28日 转自:ht ... -
arm linux 编译环境建立(文摘)
2012-01-15 20:58 552arm linux 编译环境建立(文摘) 2011年02月2 ...
相关推荐
good 电子钟 带有工程文件 很不错的喔
用VB语言编写的小时钟,用一个窗体实现显示当前的时间及滚动时间条
时间格式转换程序可以在12小时制和24格式制之间相互转换。VB6.0源代码
为了你的作业还在烦恼吗,大学生们,为了你的编程时间还在苦恼吗,那还不赶快下载一个属于自己的时钟,用VB语言编写,同时满足你的学习
自己用VB写着玩的一个时钟软件,有兴趣的可以下载看看
VB用时间控件,有年月日的选择,省去话多对时间输入和输出的编程工作
这是我第一次学vb时在网上下的,很直观的了解vb,初学者很有用!
为保护眼睛而专业编写的Vb定时提醒软件-每隔指定时间弹出提示发出提示音,写本软件的初衷是一个护眼软件,当面对电脑至设定的小时后,即会触发程序弹出提示,或发出警报音,可自定义休息时间结束时(工作时的声音提示...
用 VB6 编写的倒计时器,时间可由用户自己输入,到时间后,自动弹出对话框并执行用户指定的程序或执行关机或执行重新启动,然后自行退出。
源码:VB6.0 大小:674 KB(源文件:1.69 MB) 解压密码:http://wanghan.uueasy.com/read.php?tid=5里有 详细说明:在解压后的“写在前面.txt”里有详细解说,无1广告(htm……) 夏天了,家里都有蚊子,这里有杀蚊子软件...
Vb开发编写的关机助手源代码,具体来说可以定时关机、强制终止进程。可设定程序在几小时几分钟内自动关机,关机时强制终止进程,激活本功能后,关机程序将倒计时,在此期间您可终止运行本程序,运行效果图如上所示。
VB DateTimePicker控件显示时间VB DateTimePicker控件显示时间VB DateTimePicker控件显示时间VB DateTimePicker控件显示时间
自己刚学VB不久,小时试身手,VB趣味编程小程序,觉得还可以
VB本身提供了这个功能,在主菜单“视图”选项的“工具栏”下,选中Edit,VB的界面会出现一排工具按钮,其中的手形图标按钮后的两个按钮用于“设置注释块”和“解除注释块”。 4、怎么实现鼠标一移上去就出现小提示...
1、修正 Microsoft Win32 API Loader 不能使用的问题 2、修正可视化数据管理器不能使用的问题 ... Microsoft Visual Basic 6.0 相对其他精简版本,本版本作了如下修正: ...这个软件仅供学习参考用,请下载后24小时删除。
如果仔细阅读该资源你会在三小时掌握TREEVIEW控件
vb入门教程,VB语言容易上手,如果只用VB进行简单开发,并有其他语言基础,看几个小时就可以了。
VB.NET事件编写对初学者有时一头雾水,网上讲解的代码往往写的繁琐,让初学者看了大半天,实战几小时才弄的半明半白。
因为要用网页登录无线网络,但又不想每次都手动输入账号密码,尤其是信号不稳定的情况,经常掉线,严重的时候一个小时内就好几次,要是每次都手动登录的话,那人都要累死,所以写了这个快速登录程序,还加了个断线...
s = InputBox("请换算成秒(1小时=3600秒,1分钟=60秒)", "多久后关机?") Dim Savetime As Double Savetime = timeGetTime '记下开始时的时间 Form2.Hide While timeGetTime * 1000 '循环等待 DoEvents '转让控制...