彭世瑜的博客

记录我的code历程 个人主页:www.pengshiyu.com

VB编程:for循环输出杨辉三角-45

运行效果: 程序代码: Private Sub Command1_Click()     Dim a()     n = 10           'Val(Text1.Text)     Me.Cls     ReDim a(n + 1, n + 1)     Fo...

2016-12-25 17:15:30

阅读数:161

评论数:2

VB编程:利用指针实现数组拆分-44

运行效果: 程序代码: Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As A...

2016-12-14 15:16:47

阅读数:24

评论数:0

VB编程:利用指针实现数组的插入-43

运行效果: 程序代码: Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As A...

2016-12-14 13:20:45

阅读数:51

评论数:0

VB编程:利用地址偏移访问内存-42

1、运行效果 2、程序代码; Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination A...

2016-12-13 18:39:47

阅读数:26

评论数:0

VB编程:传递指针变量-41

1、运行效果 2、程序代码 Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As ...

2016-12-13 17:54:44

阅读数:46

评论数:0

VB编程:申明窗体数组-40

运行效果 运行代码: Private Sub Command1_Click()     Dim intx As Integer     Dim frmnew(1 To 5) As New Form1  '使用new关键字,系统会创建新窗体     For intx ...

2016-12-08 15:16:09

阅读数:8

评论数:0

VB编程:获取对象私有域的地址-39

运行效果: 运行程序: Private Sub Command1_Click()     Dim num As Integer     Text1.Text = ObjPtr(Text1)      '获取对象地址     Text3.Text = StrPtr(Te...

2016-12-08 11:39:50

阅读数:13

评论数:0

[转载]关于字体的一些常识

原文地址:关于字体的一些常识作者:花园 我们每天设计都在与字体打交道。但是我们一直没有认真在意他们的存在。我们没有很好地使用过他们,甚至滥用他们。这一切是因为我们不了解他们。Information Architects 上大声喊道:95%的网页设计是排版设计(Web Des...

2016-12-08 10:55:01

阅读数:60

评论数:0

VB编程:利用控件数组设置控件状态-38

运行效果: 程序代码: Private Sub Form_Load()     For i = 0 To Label1.Count - 1         Label1(i).Caption = "移动鼠标"     Next i ...

2016-12-02 11:54:34

阅读数:79

评论数:0

VB编程:巧用常量定义数组-37

运行效果: 程序代码: Private Const general = 5 Private Sub Command1_Click()     Dim myarray(general - 1) As Integer     For i = 0 To general -...

2016-12-02 10:17:44

阅读数:131

评论数:0

VB编程:VB运用数据结构-36

运行效果: 程序代码: Private Type num       '定义一个新类型的数据,包含两个元素     num1 As Integer     num2 As Integer End Type Private Sub Command1_Click()  ...

2016-12-01 18:16:29

阅读数:38

评论数:0

VB编程:Timer控件实例幼儿识字卡片-35

运行效果: 程序代码: Dim myarray(10) As String     '定义全局变量,文字数组 Dim i As Integer Private Sub Form_KeyDown(KeyCode As Integer, Shift As Intege...

2016-12-01 13:28:34

阅读数:23

评论数:0

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