扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
dim a as singer
创新互联公司于2013年创立,是专业互联网技术服务公司,拥有项目网站建设、网站设计网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元临清做网站,已为上家服务,为临清各地企业和个人服务,联系电话:028-86922220
dim b as singer 定义a,b 为单精度型
a=text1.text 将输入文本框1的赋给A 我看不懂textbox是什么 不好意思
b=text2.text 将输入文本框2的赋给b
text3.text=a+b 讲a+b的值赋给text3.text
应该就是这样 我的QQ是349141013 我正在学习VB中 希望可以和你交流
Public a As Short = 1
按钮事件:
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
a = a + 1
Label1.Text = a
End Sub
这样写出来只能加一次,再单击就不管用了,Lable1里一直显示为2.
望采纳,谢谢!!
Private WithEvents NewTextBox As TextBox
'通过使用WithEvents关键字声明一个对象变量为新的命令按钮
Private Sub Command1_Click()
If NewTextBox Is Nothing Then
Set NewTextBox = Controls.Add("VB.TextBox", "cmdNew", Form1)
NewTextBox.Move 200, 200
NewTextBox.Width = Form1.Width - 450
NewTextBox.Height = Form1.Height - 1400
NewTextBox.Visible = True
End If
End Sub
Private Sub Command2_Click()
If NewTextBox Is Nothing Then
Exit Sub
Else
Controls.Remove NewTextBox
Set NewTextBox = Nothing
End If
End Sub
html
head
meta http-equiv="Content-Type" content="text/html; charset=utf-8" /
title1到100之和/title
/head
script language="javascript"
!--
sum=0
for(i=1;i=100;i++)
{
sum=sum+i;
}
document.write("1到100之和为:"+sum)
--
/script
body
/body
/html
Dim Text() As Object
Private Sub Form_Load()
Dim i As Integer
Dim nTop As Long
ReDim Text(1 To 10)
For i = 1 To 10
Set Text(i) = Controls.Add("VB.TextBox", "Text1" CStr(i))
Text(i).Height = 300
Text(i).Top = nTop
Text(i).Visible = True
nTop = nTop + 30 * 15
Next i
End Sub
添加动态控件。你可以自己试试看。 form1上什么都不加运行这个程序后会发现自动生成了10个text控件
很简单,点击菜单“项目”--“WindowsApplication1属性”
在属性面板里点“资源”,这里可添加字符串资源、图片资源、多媒体资源等等。
使用资源很简单,举例如下:
Label1.Text = My.Resources.String1
PictureBox1.Image = My.Resources.小猫
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流