自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(10)
  • 资源 (1)
  • 收藏
  • 关注

原创 format函数中的自定义日期及时间格式

用户自定义日期/时间格式及示例

2022-07-22 11:48:05 952

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

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

1_1基础设计实例EX1-EX7.7z

从零开始学vb6 配套工程文件 https://blog.youkuaiyun.com/sirEarth/article/details/115046336?spm=1001.2014.3001.5501

2021-03-29

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除