手机版
热门标签
站点地图
我要投稿
广告合作
联系我们
搜 索
广告位招租
广告位招租
切换导航
首页
编程教程
编程导航
编程百科
编程问答
编程博文
编程实例
硬件设备
网络运营
软件教程
移动数码
办公软件
操作系统
网络运维
设计教程
技术频道
▸ 编程语言
▸ 前端开发
▸ 移动开发
▸ 开发工具
▸ 程序设计
▸ 行业应用
▸ CMS系统
▸ 服务器
▸ 数据库
公众号推荐
微信公众号搜
"智元新知"
关注
微信扫一扫可直接关注哦!
百
百专题提供百的最新资讯内容,帮你更好的了解百。
VB工程--百例46---园、椭圆、饼形图
Option Explicit Private Sub Command1_Click() Pic1.Cls 清除图片框中的内容 Pic1.FillColor = vbBlue 填充颜色是蓝色 Pic1.FillStyle = 0 实
作者:佚名 时间:2019-12-18
VB工程--百例47--球体.
Option Explicit Private Sub Form_Activate() pic1.Circle (pic1.ScaleWidth / 2, pic1.ScaleHeight / 2), _ pic1.ScaleHeight / 2 园 pic1.Circle (pic1.ScaleWidth / 2, pic1.Sca
作者:佚名 时间:2019-12-18
VB工程---百例46-----园、椭圆、饼形2
Option Explicit Private Sub Command1_Click() Pic1.Cls Pic1.FillColor = vbBlue Pic1.FillStyle = 0 Pic1.Circle (Pic1.ScaleWidth / 2, Pic1.ScaleHeight / 2), Pic1.ScaleHe
作者:佚名 时间:2019-12-18
VB百例鸟瞰图
作者:佚名 时间:2019-12-18
VB工程--百例48--文件过滤
Option Explicit Private Sub Command1_Click(Index As Integer) Select Case Index 以命令按钮的索引作为测试表达式 Case 0 File1.Pattern = "*.*" Case 1 File1.Pa
作者:佚名 时间:2019-12-18
VB工程--百例49--显示文件路径
Option Explicit Private Sub Dir1_Change() File1.Path = Dir1.Path Label1.Caption = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive
作者:佚名 时间:2019-12-18
VB---百例51--删除文件
Option Explicit Private Sub Command1_Click() Dim killedfile As String, choicedfile As String 定义变量 Dim x If Right(Dir1.Path, 1) = "\" Then choicedfile = Dir1.Pat
作者:佚名 时间:2019-12-18
VB工程--百例53--文件改名
Option Explicit Private Sub Command1_Click() Dim oldname As String Dim newname As String If Right(Dir1.Path, 1) = "\" Then oldname = Dir1.Path & File1.FileName
作者:佚名 时间:2019-12-18
VB工程--百例59--指数、对数函数计算器
Option Explicit Private Sub cmd1_Click() If Val(txt1.Text) > 709 Then 若文本框txt1.中输入的数值大于709 txt2.Text = "数值过大,请重新输入"则在txt2. 显示 "数值过大,请重新输入" Else 若文本框txt1输入的数值小于70
作者:佚名 时间:2019-12-18
VB工程--百例54--鼠标跟随
Option Explicit Private Sub lbl1_click() End End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) lbl1.Move X, Y 使标签框以鼠标指针的位置移动 End Sub
作者:佚名 时间:2019-12-18
VB工程--百例56--用键盘控制小方块移动
Option Explicit Dim i As Integer Private Sub form_keydown(keycode As Integer, shift As Integer) If keycode = 37 Then 如果按下键值为37的键 Shape1.Left = Shape1.Left - 100 图形控件想
作者:佚名 时间:2019-12-18
VB工程---百例57--判断是否为大写字母
Option Explicit Private Sub text1_KeyPress(KeyAscii As Integer) If KeyAscii < 65 Or KeyAscii > 90 Then ( 数65--90代表的是ASCii中的A---W 26个字母) 若keyascii不在65--90之间 Label1.Caption = "输入的不
作者:佚名 时间:2019-12-18
VB工程--百例64光标位置
Option Explicit Private Sub Command1_Click() txt1.Text = "欢迎来到廊坊师范学院" End Sub Private Sub Command2_Click() txt1.Text = "" End Sub Private Sub Command3_Click() End End Sub Pri
作者:佚名 时间:2019-12-18
VB工程处---百例66--网站页面
Option Explicit Private Sub Form_Click() End End Sub Private Sub Form_Resize() Label1.Left = (Me.ScaleWidth - Label1.Width) / 2 '标签库label1水平居中显示 Label1.Top = Me.ScaleHeight
作者:佚名 时间:2019-12-18
VB工程--百例69--消息框
Option Explicit Private Sub Form_Click() Dim x As Integer x = MsgBox("你单击的是窗体,是吗?", 35, "询问框") If x = 6 Then '若们四个box的函数的返回值是6 MsgBox "你选择了“是”按钮", vbInfor
作者:佚名 时间:2019-12-19
VB工程--百例70---求平均数
Option Explicit Dim i, v, sum, aver '定义变量 i用于在输入框中显示输入的是第几个数__ '变量v表示在输入框中输入的数值,sum求和,aver求平均数 Private Sub Command2_Click() aver = sum / 3 Tex
作者:佚名 时间:2019-12-19
VB工程--百例74--窗体变色
Option Explicit Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then '若单击鼠标右键 PopupMenu mnuformcolor '在窗体上创建弹出式菜单
作者:佚名 时间:2019-12-19
VB工程--百例73--弹出式菜单
此题和VB工程--百例74如出一辙 Option Explicit Private Sub Form_Load() With lbl1 .Caption = "欢迎登陆邢金聪的博客" .FontBold = 28 .FontBold = True .FontUnderline = True '将标签中的
作者:佚名 时间:2019-12-19
VB工程---百例75--状态栏
重点statusbar外部控件的掌握 Option Explicit Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) stb1.Panels(3) = "X:" & Str(X) '第3个窗体上显示鼠标在图像框的水平位置 stb1.P
作者:佚名 时间:2019-12-19
VB工程--百例76--工具栏
这个例子在写时有些陌生,无从下手,经过仔细研究,三遍才将其完整的运行,第一遍尝试,第二遍五个按钮中有些运行不了,第三遍自己通过理解与记忆,背着完整的写了出来,而且运行非常成功!以此铭记!具体步骤如下! Option Explicit Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Se
作者:佚名 时间:2019-12-19
上一页
1
2
3
4
下一页
小编推荐
苹果市值2025年有望达4万亿美元
• 苹果iPhone屏幕划痕如何去除?7个法子可
• iPhone SE 4首发!苹果自研5G基带第一个
• 史无前例:iPhone 16系列电池容量公布
• 首批iPhone 16在路上了!苹果已发货 明
• 绝!iPhone16开卖:北京上海用户暴雨中
• iPhone 18用上台积电2nm芯片!但苹果又
• 粉碎不支持iPhone谣言!微信官宣:朋友
热门标签
更多
python
JavaScript
java
HTML
PHP
reactjs
C#
Android
CSS
Node.js
sql
r
python-3.x
MysqL
jQuery
c++
pandas
Flutter
angular
IOS
django
linux
swift
typescript
路由器
JSON
路由器设置
无线路由器
h3c
华三
华三路由器设置
华三路由器
电脑软件教程
arrays
docker
软件图文教程
C
vue.js
laravel
spring-boot