WEIGE0725-优快云博客

ex.11 通过enable属性设置控件有效性Option ExplicitDim t0 As Date, t1 As DatePrivate Sub Command1_Click()t0 = NowText1.Text = Format(t0, "hh:mm:ss")Text2.Text = ""Text3.Text = ""Command1.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Command2_Cli

2021-03-31 23:03:00 201

原创 ex10.通过Font属性改变文本外观

ex10.通过Font属性改变文本外观Option ExplicitPrivate Sub Command1_Click()Label1.Font.Name = "宋体"Command1.BackColor = vbGreenCommand2.BackColor = vbButtonFaceCommand3.BackColor = vbButtonFaceEnd SubPrivate Sub Command10_Click()EndEnd SubPrivate Sub Comm

2021-03-29 23:23:57 162

原创 ex9.用top、left属性改变位置

ex9.用top、left属性改变位置Option ExplicitDim myTop As Long, myLeft As LongPrivate Sub Command1_Click()'上移With Image1 .Top = .Top - 100End WithEnd SubPrivate Sub Command2_Click()'下移With Image1 .Top = .Top + 100End WithEnd SubPrivate Sub Co

2021-03-27 22:28:38 700

原创 ex8.用height、width属性改变大小

ex8.用height、width属性改变大小本例演示通过height属性设置控件的高度，通过width属性设置控件的宽度。Option ExplicitPrivate Sub Command1_Click()Image1.Width = Image1.Width / 0.8Image1.Height = Image1.Height / 0.8End SubPrivate Sub Command2_Click()Text1.Width = Text1.Width + 100End S

2021-03-27 00:13:32 211

原创 ex7.Caption属性的运用

ex7.Caption属性的运用Option ExplicitPrivate 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

原创 ex5.用中间变量交换文本

ex5.用中间变量交换文本

2021-03-23 22:07:28 180

原创 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