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
发表评论
-
腾讯公司后台服务器经典面试题
2012-01-20 10:21 895腾讯公司后台服务器经 ... -
linux中select()函数分析
2012-01-20 10:21 668linux中select()函数分析 2 ... -
Delphi下的winsock-api 函数(二)
2012-01-20 10:21 799Delphi下的winsock-api 函数(二) 2010 ... -
积累的一些UNIX网络编程的知识
2012-01-20 10:21 818积累的一些UNIX网络编程的知识 2011年04月20日 ... -
Linux 网络编程基础(一) ---------------客户端/服务器的简单实现
2012-01-20 10:20 653Linux 网络编程基础(一) --------------- ... -
VB制作快捷打开电脑里的应用软件比如:我的电脑 网上邻居 等....
2012-01-19 15:22 631VB制作快捷打开电脑里的应用软件比如:我的电脑 网上邻居 等. ... -
学生作业检查总结
2012-01-19 15:22 1074学生作业检查总结 2010 ... -
情 况 通 报
2012-01-19 15:22 960情 况 通 报 2011年05月20 ... -
888888888888888
2012-01-19 15:22 663888888888888888 2010年11月27 ... -
C++编程报告――WxWidget环境配置(IDE:CodeBlocks)[转]
2012-01-17 05:09 826C++编程报告――WxWidget ... -
配置和运行服务器群集的最佳操作
2012-01-17 05:08 704配置和运行服务器群集的最佳操作 2010年11月29日 ... -
搭建Windows下的Android开发环境
2012-01-17 05:08 520搭建Windows下的Android开发环境 2011年07 ... -
【黑客】利用VBS脚本让QQ永远在线,等级速升
2012-01-16 04:00 940【黑客】利用VBS脚本让QQ永远在线,等级速升 2010年0 ... -
Vbs脚本应用――打造个性化QQ
2012-01-16 04:00 809Vbs脚本应用――打造个性化QQ 2009年07月16日 ... -
Iisweb.vbs:IIS 网站管理脚本详解(二)
2012-01-16 04:00 719Iisweb.vbs:IIS 网站管理脚本详解(二) 200 ... -
vbs脚本恶搞
2012-01-16 03:59 524vbs脚本恶搞 2009年08月07 ... -
把我最钟爱的脚本语言--vbs 的教程分享给大家--1
2012-01-16 03:59 871把我最钟爱的脚本语言- ...
相关推荐
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雪花代码
VB代码转java代码,亲测可用
excel中VB代码excel中VB代码
方便vb常用代码管理,查询,vb代码仓库软件
vb源代码 vb实例教学 vb高手必备,资源下载网址!! 本人收录的五个vb源码下载网址,你看后一定会受益匪浅!知识就是力量,成为vb高手的最好办法就是学习源码!
vb远程控制代码vb远程控制代码vb远程控制代码
开源(VB代码):实现TextBox不同文字颜色VB代码.zip