- 博客(23)
- 资源 (5)
- 论坛 (3)
- 收藏
- 关注
原创 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
2759
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
5
原创 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
269
原创 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
10
原创 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
392
原创 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
15
原创 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
302
原创 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
8
原创 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
323
原创 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
5
原创 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
155
原创 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
6
原创 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
100
原创 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
8
原创 [转载]关于字体的一些常识
原文地址:关于字体的一些常识作者:花园我们每天设计都在与字体打交道。但是我们一直没有认真在意他们的存在。我们没有很好地使用过他们,甚至滥用他们。这一切是因为我们不了解他们。InformationArchitects 上大声喊道:95%的网页设计是排版设计(Web Design is 95% Typography)。是的,字体是排版的重要元素之一;字体设计也是设计里最深...
2016-12-08 10:55:01
191
原创 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
488
原创 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
7
原创 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
1054
原创 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
6
原创 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
258
原创 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
5
原创 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
284
原创 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
4
mybatis-generator-demo.zip
2020-07-26
CSS Tools: Reset CSS
2020-07-23
浏览器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的粉丝