我也要用- 博客(23)
- 资源 (5)
- 论坛 (3)
- 收藏
- 关注
RSS订阅原创 VB编程：for循环输出杨辉三角-45
运行效果：程序代码：Private Sub Command1_Click() Dim a() n = 10 'Val(Text1.Text) Me.Cls ReDim a(n + 1, n +1) For i = 1 To n For j = 0 To i a(1...
2016-12-25 17:15:30
2933
2
原创 VB编程：for循环输出杨辉三角-45_彭世瑜_新浪博客
运行效果：程序代码：Private Sub Command1_Click() Dim a() n = 10 'Val(Text1.Text) Me.Cls ReDim a(n + 1, n +1) For i = 1 To n For j = 0 To i a(1, i) =1...
2016-12-25 17:15:30
16
原创 VB编程：利用指针实现数组拆分-44
运行效果：程序代码：Private Declare Sub CopyMemory Lib "kernel32" Alias"RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length AsLong)Private Sub Form_Load() Dim arr() arr...
2016-12-14 15:16:47
296
原创 VB编程：利用指针实现数组拆分-44_彭世瑜_新浪博客
运行效果：程序代码：Private Declare Sub CopyMemory Lib "kernel32" Alias"RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length AsLong)Private Sub Form_Load() Dim arr() arr = Array...
2016-12-14 15:16:47
22
原创 VB编程：利用指针实现数组的插入-43
运行效果：程序代码：Private Declare Sub CopyMemory Lib "kernel32" Alias"RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length AsLong)Private Sub Form_Load()On Error GoTo 1 D...
2016-12-14 13:20:45
429
原创 VB编程：利用指针实现数组的插入-43_彭世瑜_新浪博客
运行效果：程序代码：Private Declare Sub CopyMemory Lib "kernel32" Alias"RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length AsLong)Private Sub Form_Load()On Error GoTo 1 Dim arr()...
2016-12-14 13:20:45
23
原创 VB编程：利用地址偏移访问内存-42
1、运行效果2、程序代码;Private Declare Sub CopyMemory Lib "kernel32" Alias"RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length AsLong)Private Sub Form_Load() Dim i As Long...
2016-12-13 18:39:47
368
原创 VB编程：利用地址偏移访问内存-42_彭世瑜_新浪博客
1、运行效果2、程序代码;Private Declare Sub CopyMemory Lib "kernel32" Alias"RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length AsLong)Private Sub Form_Load() Dim i As Long Dim ...
2016-12-13 18:39:47
22
原创 VB编程：传递指针变量-41
1、运行效果2、程序代码Private Declare Sub CopyMemory Lib "kernel32" Alias"RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length AsLong)Dim q As StringDim p As StringPrivate Sub ...
2016-12-13 17:54:44
354
原创 VB编程：传递指针变量-41_彭世瑜_新浪博客
1、运行效果2、程序代码Private Declare Sub CopyMemory Lib "kernel32" Alias"RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length AsLong)Dim q As StringDim p As StringPrivate Sub Command1...
2016-12-13 17:54:44
10
原创 VB编程：申明窗体数组-40
运行效果运行代码：Private Sub Command1_Click() Dim intx AsInteger Dim frmnew(1 To 5) AsNew Form1 '使用new关键字，系统会创建新窗体 For intx = 1 To 5 frmnew(intx).Show frmnew(i...
2016-12-08 15:16:09
172
原创 VB编程：申明窗体数组-40_彭世瑜_新浪博客
运行效果运行代码：Private Sub Command1_Click() Dim intx AsInteger Dim frmnew(1 To 5) AsNew Form1 '使用new关键字，系统会创建新窗体 For intx = 1 To 5 frmnew(intx).Show frmnew(intx).Win...
2016-12-08 15:16:09
19
原创 VB编程：获取对象私有域的地址-39
运行效果：运行程序：Private Sub Command1_Click() Dim num As Integer Text1.Text = ObjPtr(Text1) '获取对象地址 Text3.Text =StrPtr(Text2.Text) '获取字符串首位地址 Text4.Text = VarPtr(num) ...
2016-12-08 11:39:50
117
原创 VB编程：获取对象私有域的地址-39_彭世瑜_新浪博客
运行效果：运行程序：Private Sub Command1_Click() Dim num As Integer Text1.Text = ObjPtr(Text1) '获取对象地址 Text3.Text =StrPtr(Text2.Text) '获取字符串首位地址 Text4.Text = VarPtr(num) '获...
2016-12-08 11:39:50
19
原创 [转载]关于字体的一些常识
原文地址：关于字体的一些常识作者：花园我们每天设计都在与字体打交道。但是我们一直没有认真在意他们的存在。我们没有很好地使用过他们，甚至滥用他们。这一切是因为我们不了解他们。InformationArchitects 上大声喊道：95%的网页设计是排版设计(Web Design is 95% Typography)。是的，字体是排版的重要元素之一；字体设计也是设计里最深...
2016-12-08 10:55:01
217
原创 VB编程：利用控件数组设置控件状态-38
运行效果：程序代码：Private Sub Form_Load() For i = 0 ToLabel1.Count - 1 Label1(i).Caption ="移动鼠标" Next iEnd SubPrivate Sub Label1_MouseMove(Index As Integer, Button AsInt...
2016-12-02 11:54:34
507
原创 VB编程：利用控件数组设置控件状态-38_彭世瑜_新浪博客
运行效果：程序代码：Private Sub Form_Load() For i = 0 ToLabel1.Count - 1 Label1(i).Caption ="移动鼠标" Next iEnd SubPrivate Sub Label1_MouseMove(Index As Integer, Button AsInteger, Sh...
2016-12-02 11:54:34
18
原创 VB编程：巧用常量定义数组-37
运行效果：程序代码：Private Const general = 5Private Sub Command1_Click() Dim myarray(general - 1)As Integer For i = 0 To general -1 myarray(i) = Int(Rnd * 90) + 5 P...
2016-12-02 10:17:44
1180
原创 VB编程：巧用常量定义数组-37_彭世瑜_新浪博客
运行效果：程序代码：Private Const general = 5Private Sub Command1_Click() Dim myarray(general - 1)As Integer For i = 0 To general -1 myarray(i) = Int(Rnd * 90) + 5 Print mya...
2016-12-02 10:17:44
23
原创 VB编程：VB运用数据结构-36
运行效果：程序代码：Private Type num '定义一个新类型的数据，包含两个元素 num1 As Integer num2 As IntegerEnd TypePrivate Sub Command1_Click() Dim number As num '定义num类型的变量 number.num1...
2016-12-01 18:16:29
303
原创 VB编程：VB运用数据结构-36_彭世瑜_新浪博客
运行效果：程序代码：Private Type num '定义一个新类型的数据，包含两个元素 num1 As Integer num2 As IntegerEnd TypePrivate Sub Command1_Click() Dim number As num '定义num类型的变量 number.num1 = 1 ...
2016-12-01 18:16:29
12
原创 VB编程：Timer控件实例幼儿识字卡片-35
运行效果：程序代码：Dim myarray(10) As String '定义全局变量，文字数组Dim i As IntegerPrivate Sub Form_KeyDown(KeyCode As Integer, Shift AsInteger) If KeyCode = 37 Then '键盘按键左边← ...
2016-12-01 13:28:34
308
原创 VB编程：Timer控件实例幼儿识字卡片-35_彭世瑜_新浪博客
运行效果：程序代码：Dim myarray(10) As String '定义全局变量，文字数组Dim i As IntegerPrivate Sub Form_KeyDown(KeyCode As Integer, Shift AsInteger) If KeyCode = 37 Then '键盘按键左边← Call ...
2016-12-01 13:28:34
19
CSS Tools: Reset CSS
2020-07-23
mybatis-generator-demo.zip
2020-07-26
浏览器Header和cookie字符串形式转Json
2020-04-08
彭世瑜的留言板
发表于 2020-01-02 最后回复 2020-03-20
博客管理后台搜索文章的时候应该忽略英文大小写
发表于 2020-02-16 最后回复 2020-02-16
后台管理文字太细，不支持回车搜索
发表于 2020-02-15 最后回复 2020-02-15
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人 TA的粉丝