- 博客(10)
- 资源 (1)
- 收藏
- 关注
原创 ex11. 通过enable属性设置控件有效性
ex.11 通过enable属性设置控件有效性 Option Explicit Dim t0 As Date, t1 As Date Private Sub Command1_Click() t0 = Now Text1.Text = Format(t0, "hh:mm:ss") Text2.Text = "" Text3.Text = "" Command1.Enabled = False Command2.Enabled = True End Sub Private Sub Command2_Cli
2021-03-31 23:03:00
201
原创 ex10.通过Font属性改变文本外观
ex10.通过Font属性改变文本外观 Option Explicit Private Sub Command1_Click() Label1.Font.Name = "宋体" Command1.BackColor = vbGreen Command2.BackColor = vbButtonFace Command3.BackColor = vbButtonFace End Sub Private Sub Command10_Click() End End Sub Private Sub Comm
2021-03-29 23:23:57
162
原创 ex9.用top、left属性改变位置
ex9.用top、left属性改变位置 Option Explicit Dim myTop As Long, myLeft As Long Private Sub Command1_Click() '上移 With Image1 .Top = .Top - 100 End With End Sub Private Sub Command2_Click() '下移 With Image1 .Top = .Top + 100 End With End Sub Private Sub Co
2021-03-27 22:28:38
699
原创 ex8.用height、width属性改变大小
ex8.用height、width属性改变大小 本例演示通过height属性设置控件的高度,通过width属性设置控件的宽度。 Option Explicit Private Sub Command1_Click() Image1.Width = Image1.Width / 0.8 Image1.Height = Image1.Height / 0.8 End Sub Private Sub Command2_Click() Text1.Width = Text1.Width + 100 End S
2021-03-27 00:13:32
211
原创 ex7.Caption属性的运用
ex7.Caption属性的运用 Option Explicit Private Sub Command1_Click() MsgBox "你将修改form1窗口的Caption属性" Form1.Caption = "Caption属性示例" MsgBox "你将修改Label1的Caption属性" Label1.Caption = "标签1" MsgBox "文本框text1没有caption属性,你将通过text属性修改文本框中的文本内容" Text1.Text = "文本框1" MsgBox
2021-03-25 21:53:33
528
原创 ex6.立即窗口的使用
ex6.立即窗口的使用 立即窗口的用途 测试有问题或新写的过程代码。 在执行一个应用过程时查询或更改某个变量值。 在运行中止时,在过程代码中指定该变量一个想要的新值。 在执行一个应用过程时查询或更改一个属性值。 调用任何在过程代码中想调用的过程。 在程序运行时查看调试输出。 立即窗口主要用于调试代码,仅可在中断模式输入代码并执行。如果未显示立即窗口,可以通过快捷键CTRL+G或者调试工具栏中的立即窗口图标重新打开。 ...
2021-03-24 23:41:18
826
原创 ex4.响应窗体或控件事件
ex4.响应窗体或控件事件 注意窗口的最大化和最小化按钮未显示,通过窗体设计时设置maxbutton以及minbutton属性为false可实现该效果。另外这两属性进在窗体设计时可写,在程序运行时为只读,不能更改其属性值 窗体可加载图片作为其背景。语句Picture = LoadPicture(picturePath)中picturePath为图片文件路径字符串,LoadPicture函数的具体用法参考MSDN 本程序响应窗体内的鼠标点击事件,每次点击会更新窗口标题 Option Explicit
2021-03-22 22:58:20
231
原创 从零开始学vb6
从零开始学VB6 除大学里面学过些C语言基础以及工作后用Excel时接触过些vba外,再无其他编程语言学习。为尽量和现在知悉的vba基础契合,决定找本书系统的学一下vb6.0,按参考书章节记录下学习中的代码片段及认识。 参考书:《Visual Basic范例开发大全》 第一篇 VB基础设计 1.1 基础设计实例 ex1. 制作欢迎界面 窗体标题(窗体的caption属性显示于此) 标签控件(label控件,caption属性将显示于此) 文本框控件(textbox控件,text属性将显示在文本框内) 如
2021-03-21 18:11:28
1867
1_1基础设计实例EX1-EX7.7z
2021-03-29
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人