- 浏览: 15026 次
最新评论
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
发表评论
-
[.net] 关于.net线程问题总结(二)
2012-01-20 01:45 330[.net] 关于.net线程问题总结(二) 2011年01 ... -
加速你的hibernate引擎
2012-01-20 01:45 703加速你的hibernate引擎 20 ... -
Hello Android 第三版 (二)
2012-01-20 01:45 672Hello Android 第三版 (二) 2010年09月 ... -
MySQL的优化(本文是Monty在O'Reilly Open Source Convention 2000大会上的演讲)(摘自老叶的博客,有删改)
2012-01-20 01:45 636MySQL的优化(本文是Monty在O'Reilly Open ... -
一个对Winsock完成端口模型封装的类
2012-01-20 01:45 792一个对Winsock完成端口模型封装的类 2011年01月0 ... -
VB窗口图表化
2012-01-19 09:33 617VB窗口图表化 2011年04月20日 '本模块为实现托 ... -
使用 Shell 属性及方法
2012-01-19 09:33 834使用 Shell 属性及方法 2 ... -
VB获取QQ2011安装路径
2012-01-19 09:33 851VB获取QQ2011安装路径 2011年05月23日 V ... -
VB关机代码
2012-01-19 09:33 789VB关机代码 2011年07月20日 .首先在Form1 ... -
转载:OpenGL显示文字
2012-01-17 02:08 817转载:OpenGL显示文字 2010年07月03日 本课 ... -
c/c++调用java
2012-01-17 02:08 943c/c++调用java 2011年06月30日 ... -
面试题讲评
2012-01-17 02:08 670面试题讲评 2011年03月14日 面试了几家公司,只有 ... -
主流嵌入式操作系统介绍(一)
2012-01-17 02:08 1717主流嵌入式操作系统介绍(一) 2010年08月13日 h ... -
AIX平台TONGLINK/Q安装与配置
2012-01-17 02:08 1598AIX平台TONGLINK/Q安装与配 ... -
柬埔寨攻略―签证、机票
2012-01-15 21:35 759柬埔寨攻略―签证、机票 2010年01月05日 一、签证 ... -
如何培养一年级学生良好的学习习惯
2012-01-15 21:35 573如何培养一年级学生良 ... -
培养一年级学生良好学习习惯
2012-01-15 21:35 534培养一年级学生良好学 ... -
094小学科学教育
2012-01-15 21:35 494094小学科学教育 2009年11月10日 全国2009 ...
相关推荐
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 '转让控制...