vb代码2
- 博客分类:
- 技术杂绘
vb代码2
2010年11月21日
常用编程原码收集(二)
vb 中简单的记时效果
一个文本框,一个记数器
'程序代码
Dim a As Double
Private Sub Command1_Click()
a = Val(Trim(Text1.Text))
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = False
Text1 = ""
End Sub
Private Sub Timer1_Timer()
a = a + 1
Text1.Text = CStr(a)
End Sub
vb6可以用鼠标移动无标题栏的窗体
'在设计阶段,将窗体的BorderStyle设置为0,ShowInTaskbar设置为True就可以了。移动窗体的代码如下:
Dim MoveScreen As Boolean
Dim MousX As Integer
Dim MousY As Integer
Dim CurrX As Integer
Dim CurrY As Integer
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
MoveScreen = True
MousX = X
MousY = Y
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If MoveScreen Then
CurrX = Form1.Left - MousX + X
CurrY = Form1.Top - MousY + Y
Form1.Move CurrX, CurrY
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MoveScreen = False
End Sub
VB6中用什么代码判断某个文件是否存在
在编程时经常会用到判断文件是否存在,比如对文件做读写操作前,或是判断密钥文件是否存在等。判断的方法有很多,有些方法虽很实用,但有点繁琐。其实还可以有更简单的方法,就是使用vb 6.0提供的filesystemobject对象。
filesystemobject对象不是vb内置对象,使用前必须首先选择[工程]→[引用],在出现的窗口中选择“microsoft scripting runtime”,然后利用filesystemobject的fileexists方法来判断文件是否存在。示例程序代码如下:
private sub command1_click()
′引用filesystemobject对象
dim fs as new filesystemobject
′利用filesystemobject对象的fileexists
′方法判断文件是否存在
if fs.fileexists(〃c:*.gif〃) then
msgbox 〃文件存在〃
else
msgbox 〃文件不存在〃
end if
end sub
灵活运用filesystemobject对象可以解决与文件操作有关的大部分问题。
在vb中没有找到MAPI控件?打开VB的时候选择“企业版控件”就会有了。
vb 中option控件选中的事件是什么
例如,控件名称是option1
那么option1.value=true表示选中
option1.value=flase表示不选.
如果全程调用或者说在模块中,要加上相应的窗体名
vb 点击按钮弹出 确认/取消对话框的方法
dim i as integer
i=msgbox ("确定删除?",vbyesno)
if i=vbyes
'确定后要执行的代码
else
'反之
end if
VB中加一按钮想运行bat文件
Private Sub Command1_Click()
Shell (app.path & "\setup.bat")
End Sub
控件始终居窗口中间
Private Sub Form_Resize()
With Text1
.Left = (Me.ScaleWidth - .Width) / 2
.Top = (Me.ScaleHeight - .Height) / 2
End With
End Sub
vb 打开网页超级链接的方法源码
首先做一个声明
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
再建按钮或label等,将事件中加上下面这样的代码
打开网页 ShellExecute hwnd, "Open", http://pc354.com", 0, 0, 0 (如果看到;,去掉;号)
发送邮件 ShellExecute hwnd, "Open", "mailto:pc354@163.com", "", App.Path, 1
在线QQ: ShellExecute hwnd, "Open", "tencent://Message/?Uin=888888&websiteName=q-zone.qq.com&Menu=yes", 0, 0, 0
发表评论
-
通过ACL和.net Framework实施对Windows对象访问的管理
2012-01-20 01:02 832通过ACL和.net Framework实施对Windows对 ... -
Windows Azure(四-2):云端的文件系统(Blob Storage)
2012-01-20 01:02 740Windows Azure(四-2):云端的文件系统(Blob ... -
windows 64bit平台移植总结
2012-01-20 01:02 809windows 64bit平台移植总结 2010年08月10 ... -
Windows Mobile Test Framework实现手机软件自动化测试的介绍
2012-01-20 01:02 853Windows Mobile Test Framework实现 ... -
是谁成就了凤姐的忘形
2012-01-19 08:50 636是谁成就了凤姐的忘形 2010年06月02日 ... -
全国名小吃
2012-01-19 08:50 589全国名小吃 2012年01月14日 广西小吃 广西菜点由 ... -
看“非诚勿扰”(2011.3.27)
2012-01-19 08:50 654看“非诚勿扰”(2011.3.27 ... -
全国各省女孩性格+美丽程度比较分析!
2012-01-19 08:50 771全国各省女孩性格+美丽 ... -
中国不同地方女人的主要特点
2012-01-19 08:50 892中国不同地方女人的主 ... -
转: Boost下载安装编译配置使用指南(含Windows和Linux)
2012-01-17 01:18 608转: Boost下载安装编译配 ... -
Android环境搭建(jdk1.6+eclipes3.4.1+Android sdk2.3+adt0.9.7)
2012-01-17 01:18 781Android环境搭建(jdk1.6+eclipes3.4.1 ... -
Windows系统下查看Android的源码的方法
2012-01-17 01:18 909Windows系统下查看Android的源码的方法 2010 ... -
修复工具类
2012-01-17 01:18 685修复工具类 2011年05月08日 ... -
制作VB安装程序问答(Package & Deployment)
2012-01-15 20:01 780制作VB安装程序问答(Package & Deploy ... -
VB 打开文件
2012-01-15 20:01 985VB 打开文件 2009年07月21日 关于VB中She ... -
VB ShellExecute 函数应用技巧
2012-01-15 20:01 968VB ShellExecute 函数应用技巧 2010年05 ... -
天铭本期热招岗位7.19-7.25
2012-01-15 20:01 10天铭本期热招岗位7.19-7. ... -
程序员如何提升(看了很多文章以后的总结/摘要)--未完待续
2012-01-11 12:11 548程序员如何提升(看了很多文章以后的总结/摘要)--未完待续 ... -
DB2数据库常用命令集
2012-01-11 12:11 594DB2数据库常用命令集 2011年05月01日 mem ... -
乐观锁与悲观锁-结合hibernate的简介--iteye技术网站
2012-01-11 12:11 690乐观锁与悲观锁-结合hib ...
相关推荐
VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB...
VB代码整理专家是一个VB的插件,与VB开发环境集成在一起,能自动的为窗体、模块、类模块添加注释说明及为全部或者部分函数、过程添加错误处理程序,为代码加上注释及一些错误处理程序是非常必要的,但往往由于其烦琐...
vb代码统计工具vb代码统计工具vb代码统计工具vb代码统计工具vb代码统计工具
vb代码库 详细的VB源码实例(并可保存自己的VB代码)对初学者很有帮助
VB经典代码 VB经典代码VB经典代码 VB经典代码 VB经典代码 VB经典代码VB经典代码 VB经典代码 VB经典代码 VB经典代码VB经典代码 VB经典代码 VB经典代码 VB经典代码VB经典代码 VB经典代码
VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源...
VB编程源代码 67拨号上网VB编程源代码 67拨号上网VB编程源代码 67拨号上网VB编程源代码 67拨号上网VB编程源代码 67拨号上网VB编程源代码 67拨号上网VB编程源代码 67拨号上网VB编程源代码 67拨号上网VB编程源代码 67...
VB代码全集VB代码全集VB代码全集VB代码全集VB代码全集VB代码全集
VB代码(解压缩)VB代码(解压缩)VB代码(解压缩)
VB代码规范,VB代码规范,VB代码规范
与VB代码互换.rar 与VB代码互换.rar 与VB代码互换.rar 与VB代码互换.rar 与VB代码互换.rar 与VB代码互换.rar
LED系统的VB代码LED系统的VB代码LED系统的VB代码
VB雪花代码 VB雪花代码 VB雪花代码 VB雪花代码VB雪花代码 VB雪花代码 VB雪花代码 VB雪花代码
excel中VB代码excel中VB代码
方便vb常用代码管理,查询,vb代码仓库软件
VB代码转java代码,亲测可用
vb源代码 vb实例教学 vb高手必备,资源下载网址!! 本人收录的五个vb源码下载网址,你看后一定会受益匪浅!知识就是力量,成为vb高手的最好办法就是学习源码!
vb远程控制代码vb远程控制代码vb远程控制代码
开源(VB代码):实现TextBox不同文字颜色VB代码.zip