vb这些代码什么意思

Private Sub Form_Load()List1.AddItem "性别"List1.AddItem "班号"List1.AddItem "简历"List2.AddItem "学号"List2.AddItem "姓名"List2.AddItem "年龄"List2.AddItem "照片"End Sub Private Sub Command1_Click()List2.AddItem List1.Text '将列list1中的项添加到list2中 List1.RemoveItem ...
vb这些代码什么意思
Private Sub Form_Load()
List1.AddItem "性别"
List1.AddItem "班号"
List1.AddItem "简历"
List2.AddItem "学号"
List2.AddItem "姓名"
List2.AddItem "年龄"
List2.AddItem "照片"
End Sub
Private Sub Command1_Click()
List2.AddItem List1.Text '将列list1中的项添加到list2中
List1.RemoveItem List1.ListIndex '将移动的list1中的项删除
End Sub
Private Sub Command2_Click()
Dim k As Integer '很无奈,用到了当然要定义了
k = 0
While (k < List2.ListCount) ' 这里的listcount是list2的项数,只有k<list2.listcount才执行while循环否则跳出
If List2.Selected(k) = True Then '索引为k的项被选中
List1.AddItem List2.Text
List2.RemoveItem k '从list2中把选中的项删除
End If
k = k + 1 'k加1是为了遍历list2中所有的项以便查找到选中的项啊
Wend '结束while循环
End Sub

以上是我的注释,建议你能看看vb帮助!!那里有你不懂的所有的东西2009-05-29
List2.AddItem List1.Text 将表1中选中的项内容添加到表2
List1.RemoveItem List1.ListIndex 删除表1所选中项 如果没有选中程序将会出错~
RemoveItem移除项 ListIndex返回或设置list控件当前选择项目的索引
Dim k As Integer 定义变量 你也可以不定义 不定义K就成了变体型变量
使用变体型变量会使程序慢了点~准确定义变量类型才能使程序运行快点

其他楼上已经说了~2009-05-29
mengvlog 阅读 339 次 更新于 2025-09-11 12:22:05 我来答关注问题0
  •  翡希信息咨询 帮我看看这个VB代码 是什么意思

    该VB代码段的含义如下:1. 变量声明 private Victim As String:声明了一个私有变量Victim,其类型为String。这意味着Victim变量只能在其被声明的类或模块内部使用,用于存储文本信息。private HostLen As Long:声明了一个私有变量HostLen,其类型为Long。Long类型用于存储较大范围的整数,HostLen变量同样...

  •  文暄生活科普 帮我看看这个VB代码 是什么意思

    在VB代码中,通过声明变量可以定义变量的类型、名称和作用域。private关键字表示声明的变量是私有变量,意味着该变量只能在声明它的类或函数内部使用。Victim As String声明Victim变量为字符串类型,可以用来存储文本信息。HostLen As Long声明HostLen变量为长整型,通常用于存储较大范围的数字。vbArray()As ...

  • CheckLitName过程的VB代码解释如下:过程名称:CheckLitName此过程主要执行以下操作:赋值操作:代码:TxtName.Text = LitName.List解释:这行代码的作用是将当前在LitName列表框中选中的项的内容,赋值给名为TxtName的文本框控件的Text属性。简而言之,就是把列表框中选中的文字显示到文本框中。设置选中...

  •  壮哉我ac07930 VB 这些代码是什么意思~详细点~

    正如楼上说的,你的代码里面Call_Run 函数没有看到定义,这个不能说明,其他的可以详细说明 Private Sub Timer1_Timer() //是个定时器的响应函数 Dim lx() As String //lx为以个字符串数组 Dim zp() As String //zp同上 Dim zx As Single //zx为单精度数字 Dim zy As Single //同上 lx...

  •  stayiag 解释下这几句VB代码的意思

    Dim b as String a=Int(Rnd*900)+100 取一个三位随机整数(100 - 999),然后赋给a b = Str(a Mod 10) & CStr((a \ 10) Mod 10) & CStr(a \ 100)a Mod 10 取模(也就是求余数)。(a \ 10) Mod 10 先整除后求余 (a \ 100) 整除 最后将三个数转换为字符串(String型)...

檬味博客在线解答立即免费咨询

代码相关话题

Copyright © 2023 WWW.MENGVLOG.COM - 檬味博客
返回顶部