扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
Imports System
创新互联坚信:善待客户,将会成为终身客户。我们能坚持多年,是因为我们一直可值得信赖。我们从不忽悠初访客户,我们用心做好本职工作,不忘初心,方得始终。10多年网站建设经验创新互联是成都老牌网站营销服务商,为您提供网站建设、成都网站建设、网站设计、H5开发、网站制作、品牌网站制作、微信小程序定制开发服务,给众多知名企业提供过好品质的建站服务。
Imports System.IO.Ports
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'获滚散取计算机有效串口
Dim ports As String() = SerialPort.GetPortNames() '必须用命名空间,用颂备基SerialPort,获取计算机的有野谨效串口
Dim port As String
For Each port In ports
portnamebox.Items.Add(port) '向combobox中添加项
Next port
'初始化界面
My.Computer.Network.UploadFile
比如让旁码上传到FTP
My.Computer.Network.UploadFile("d:\1.txt", "ftp:/启启/xxx.xxx.xxx.xxx/1.txt“, "FTP账号", "FTP密码坦哪", True, 100)
新手路过。
分类梁腔: 电脑/网络 程序设计 其他编程语言
问题描述:
问个简单的问题怎样在form2中运用form1中的变量?比如,我在form1中声明了一个变量a 也赋予了一个值,也声明为物亩public了,可在form2中,我用“label1.text=form1.a”却总是显示为0.望高手罩渣森给我这菜鸟解个惑!
解析:
form1要有一个实例才行。
dim f1 as form1
label1.text=f1.a
Dim OpenFileDialog As New OpenFileDialog
OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
OpenFileDialog.Filter = "文本文件(*.jpg)|*.jpg|所有御尘槐文件(*.*)|*.*"
If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
Dim FileName As String = OpenFileDialog.FileName
' TODO: 在此处添加打开文件的代码。
textbox1.Text = FileName
End If
第一个按钮 上传
Dim filelast As String = fileaddbefore.Text.Substring(fileaddbefore.Text.LastIndexOf("."), fileaddbefore.Text.Length - fileaddbefore.Text.LastIndexOf("."))
MessageBox.Show(filelast)
My.Computer.Network.UploadFile(textbox1.Text, "" 文件名镇友兄巧.Text filelast, "登录名1", "登录密码", True, 100)
第二个按钮
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流