复合赋值vb.net 复合赋值运算符怎么算

在VBA中复合框赋值问题

'两个公共变量Public a '存放 M8|10 ……复合赋值vb.net的对应关系Public radius1 As Variant 'LZ需要复合赋值vb.net的变量Private Sub ComboBox1_Change() '组合框改变时复合赋值vb.net的动作Dim iStr As StringiStr = a(ComboBox1.ListIndex)TextBox1.Value = Right(iStr, Len(iStr) - InStr(iStr, "|"))radius1 = TextBox1.ValueMsgBox radius1End SubPrivate Sub UserForm_Initialize() '窗体载入时复合赋值vb.net的动作a = Split("M8|10,M16|20,M24|30", ",")If ComboBox1.ListCount UBound(a) + 1 Then For i = LBound(a) To UBound(a) ComboBox1.AddItem Left(a(i), InStr(a(i), "|") - 1) Next ComboBox1.ListIndex = -1End IfEnd Sub

相关问答

Q1: excel vba中复合框怎样赋值？

ComboBox1

RowSource 属性

object.RowSource [= String]

例如：ComboBox1.RowSource = "Sheet1!A1:C3"

Text 属性

object.Text [= String

例如：ComboBox1.Text = "aaaa"

Q2: VB.NET如何对已赋值的数组重新赋值？

可以用redim，清空原数组内容后重新定义大小：

ReDim Examples(4)

Examples(0) = "a"

Examples(1) = "b"

Examples(2) = "c"

Examples(3) = "d"

Examples(4) = "e"

Q3: VB.NET 动态二维数组如何循环赋值和取值

for i =0 to ...

for j =0 to ...

keyarray(i,j)=

next

next

双重循环，赋值和读取一样

Q4: VB复合框赋值

赋值就是把复选框填充1-100的数据吧，可以循环添加

i = 1

for i to 100

复选框1.add i

复选框2.add i

复选框3.add i

next i

然后在按钮的点击事件里填写计算乘积的方法

先判断是否选中

if 复选框1.Text = "" then exit sub

……

在计算

text1.text = val(复选框1.text) * val(复选框2.text) * val(复选框3.text)

复合赋值vb.net的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于复合赋值运算符怎么算、复合赋值vb.net的信息别忘了在本站进行查找喔。