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
发表评论
-
Android 目录结构
2012-01-20 12:19 678Android 目录结构 2010年11月08日 In ... -
Linux ARM交叉编译工具链制作过程
2012-01-20 12:19 2378Linux ARM交叉编译工具链制作过程 2010年11月2 ... -
【zz】静态库与动态库搜索路径
2012-01-20 12:19 1204【zz】静态库与动态库 ... -
实现一个最简单的嵌入式操作系统
2012-01-20 12:19 736实现一个最简单的嵌入 ... -
内核级程序开发的特点
2012-01-20 12:19 799内核级程序开发的特点 2010年06月28日 In fa ... -
Python Gossip:简介模组
2012-01-19 17:00 802Python Gossip:简介模组 2010年09月18日 ... -
python sys模块详解!
2012-01-19 17:00 3903python sys模块详解! 2011年06月28日 ... -
C++ 扩展和嵌入 Python
2012-01-19 17:00 850C++ 扩展和嵌入 Python 2011年02月17日 ... -
话说Python:非主流编程语言
2012-01-19 17:00 1008话说Python:非主流编程语言 2010年07月06日 ... -
全能选手 看看Python应乎潮流的72变
2012-01-19 17:00 713全能选手 看看Python应乎潮流的72变 2010年10月 ... -
张志晨VB实例教程之打开word方法种种
2012-01-17 06:45 1053张志晨VB实例教程之打开word方法种种 2011年08月3 ... -
暂时放一放./..脑子要炸了
2012-01-17 06:45 545暂时放一放./..脑子要炸了 2010年11月10日 f ... -
VB制作快捷打开电脑里的应用软件比如:我的电脑 网上邻居 等....
2012-01-17 06:45 592VB制作快捷打开电脑里的应用软件比如:我的电脑 网上邻居 等. ... -
天铭本期热招岗位7.19-7.25
2012-01-17 06:45 3天铭本期热招岗位7.19-7. ... -
世界各国驻中国大使馆名录(全)
2012-01-16 05:35 1141世界各国驻中国大使馆名录(全) 2009年10月07日 ... -
Flex:学习标准(转载)
2012-01-16 05:34 569Flex:学习标准(转载) 2009年12月27日 转载 ... -
藏经阁
2012-01-16 05:34 654藏经阁 2009年07月21日 藏经阁 ... -
FlashBuilder4 (FlexBuilder4)中文版下载
2012-01-16 05:34 1311FlashBuilder4 (FlexBuilder4)中 ... -
Singleton模式--个人理解
2012-01-16 05:34 575Singleton模式--个人理解 ...
相关推荐
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