VB.net窗体程序如何让cmd调用?VB.NET 里面会有一个main方法表示函数的入口
main方法的参数就是命令行传给它的
shutdown.exe能直接调用是因为你的环境变量有C盘的windows目录
你只要在你程序的输出目录(一般为bin)里面打开命令行输入程序名称.exe就可以直接执行你的窗体
如果你要调试输入命令的效果,你打开你项目的属性,找到调试里面的命令行参数,在里面输入测试参数就能在你main函数里面看到结果了
那如果你想打开任何命令行都可以执行你的窗体程序,那你把你程序的安装目录设置为环境变量,这样就可以直接执行这个命令了
vb.net如何调用窗体之间的控件Public Class ks
Inherits System.Windows.Forms.Form
#Region " Windows 窗体设计器生成vb.net窗体间调用的代码 "
Public Sub New()
MyBase.New()
'该调用是 Windows 窗体设计器所必需vb.net窗体间调用的 。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化
End Sub
'窗体重写 dispose 以清理组件列表 。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer
'注意: 以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器修改此过程 。
'不要使用代码编辑器修改它 。
Friend WithEvents tx As System.Windows.Forms.TextBox
Friend WithEvents ty As System.Windows.Forms.TextBox
Friend WithEvents tz As System.Windows.Forms.TextBox
Friend WithEvents ok As System.Windows.Forms.Button
Friend WithEvents l1 As System.Windows.Forms.Label
Friend WithEvents l2 As System.Windows.Forms.Label
Friend WithEvents l3 As System.Windows.Forms.Label
System.Diagnostics.DebuggerStepThrough() Private Sub InitializeComponent()
Me.l1 = New System.Windows.Forms.Label
Me.l2 = New System.Windows.Forms.Label
Me.l3 = New System.Windows.Forms.Label
Me.tx = New System.Windows.Forms.TextBox
Me.ty = New System.Windows.Forms.TextBox
Me.tz = New System.Windows.Forms.TextBox
Me.ok = New System.Windows.Forms.Button
Me.SuspendLayout()
'
'l1
'
Me.l1.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(192, Byte), CType(255, Byte))
Me.l1.Location = New System.Drawing.Point(8, 8)
Me.l1.Name = "l1"
Me.l1.Size = New System.Drawing.Size(200, 16)
Me.l1.TabIndex = 0
'
'l2
'
Me.l2.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(192, Byte), CType(255, Byte))
Me.l2.Location = New System.Drawing.Point(8, 32)
Me.l2.Name = "l2"
Me.l2.Size = New System.Drawing.Size(200, 16)
Me.l2.TabIndex = 1
'
'l3
'
Me.l3.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(192, Byte), CType(255, Byte))
Me.l3.Location = New System.Drawing.Point(8, 56)
Me.l3.Name = "l3"
Me.l3.Size = New System.Drawing.Size(200, 16)
Me.l3.TabIndex = 2
'
'tx
'
Me.tx.Location = New System.Drawing.Point(8, 80)
Me.tx.Name = "tx"
Me.tx.Size = New System.Drawing.Size(200, 25)
Me.tx.TabIndex = 3
Me.tx.Text = "请输入x"
'
'ty
'
Me.ty.Location = New System.Drawing.Point(8, 104)
Me.ty.Name = "ty"
Me.ty.Size = New System.Drawing.Size(200, 25)
Me.ty.TabIndex = 4
Me.ty.Text = "请输入y"
'
'tz
'
Me.tz.Location = New System.Drawing.Point(8, 128)
Me.tz.Name = "tz"
Me.tz.Size = New System.Drawing.Size(200, 25)
Me.tz.TabIndex = 5
Me.tz.Text = "请输入z"
'
'ok
'
Me.ok.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(192, Byte), CType(255, Byte))
Me.ok.Location = New System.Drawing.Point(8, 160)
Me.ok.Name = "ok"
Me.ok.Size = New System.Drawing.Size(200, 64)
Me.ok.TabIndex = 6
Me.ok.Text = "ok"
'
'ks
'
Me.AutoScaleBaseSize = New System.Drawing.Size(8, 18)
Me.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(128, Byte), CType(255, Byte))
Me.ClientSize = New System.Drawing.Size(216, 232)
Me.Controls.Add(Me.ok)
Me.Controls.Add(Me.tz)
Me.Controls.Add(Me.ty)
Me.Controls.Add(Me.tx)
Me.Controls.Add(Me.l3)
Me.Controls.Add(Me.l2)
Me.Controls.Add(Me.l1)
Me.Name = "ks"
Me.Text = "考试"
Me.ResumeLayout(False)
End Sub
#End Region
Dim x, y, z, a, b, c, d, aa, bb, cc As Single
Dim tts, alls As Single
Private Sub ks_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
x = Int(130 * Rnd())
y = Int(120 * Rnd())
z = Int(125 * Rnd())
a = Int(24 * Rnd())
b = Int(1a * 2 * Rnd())
c = Int(1b * 2 * Rnd())
d = Int(1c * 3 * Rnd())
aa = xyz
bb = a * xb * yc * z
cc = b * xc * yd * z
l1.Text = "x y z="Str(aa)
l2.Text = Str(a)"x "Str(b)"y "Str(c)"z="Str(bb)
l3.Text = Str(b)"x "Str(c)"y "Str(d)"z="Str(cc)
End Sub
Private Sub ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ok.Click
If Val(tx.Text) = x And Val(ty.Text) = y And Val(tz.Text) = z Then
tts = tts1
End If
alls = alls1
tx.Text = ""
ty.Text = ""
tz.Text = ""
x = Int(1(1000 ^ 0.5) * Rnd())
y = Int(1(10000 ^ 0.4) * Rnd())
z = Int(1(100000 ^ 0.3) * Rnd())
a = Int(24 * Rnd())
b = Int(1a * 2 * Rnd())
c = Int(1b * 2 * Rnd())
d = Int(1c * 3 * Rnd())
aa = xyz
bb = a * xb * yc * z
cc = b * xc * yd * z
l1.Text = "x y z="Str(aa)
l2.Text = Str(a)"x "Str(b)"y "Str(c)"z="Str(bb)
l3.Text = Str(b)"x "Str(c)"y "Str(d)"z="Str(cc)
End Sub
Private Sub ks_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click
Dim lv As Single
If Not (alls = 0) Then
lv = Int(tts * 100000 / alls) / 1000
MsgBox(Str(lv)"%", , "正确率")
tx.Visible = False
ty.Visible = False
tz.Visible = False
ok.Visible = False
l1.Visible = False
l2.Visible = False
l3.Visible = False
Else
MsgBox("答题!", , "答题!")
End If
End Sub
End Class
VB.net 怎么实现多项目之间的窗体调用?首先引入那个项目的命名空间 , 在代码最上方用Imports语句,比如
Imports Project1
然后在需要用的地方写
Dim aform As New MyForm1()
然后通过aform对象的Show方法(弹出普通窗口)或ShowDialog(弹出窗口时后方窗口无响应)方法来显示窗口 , 最后调用Dispose方法释放对象内存 。
VB.NET怎么调用其它模块的过程?调用过程,调用过程有诸多技巧,它们与过程的类型、位置以及在应用程序中的使用方式有关 。下面说明如何调用 Sub 过程和 Function 过程 。
调用 Sub 过程
与 Sub 过程不同,在表达式中 , Sub 过程不能用其名字调用 。调用 Sub 过程的是一个独立的语句 。Sub 过程还有一点与函数不一样 , 它不会用名字返回一个值 。但是,与 Function过程一样,Sub 过程也可以修改传递给它们的任何变量的值 。
调用 Sub 过程有两种方法:
'以下两个语句都调用了名为 MyProc 的 Sub 过程 。
Call MyProc (FirstArgument, SecondArgument)
MyProc FirstArgument, SecondArgument
注意,当使用 Call 语法时,参数必须在括号内 。若省略 Call 关键字,则也必须省略参数两边的括号
调用函数过程
通常,调用自行编写的函数过程的方法和调用 Visual Basic 内部函数过程(例如 Abs)的方法一样;即在表达式中写上它的名字 。
'下面的语句都调用函数 ToDec 。
Print 10 * ToDec
X = ToDec
If ToDec = 10 Then Debug.Print "Out of Range"
X = AnotherFunction ( 10 * ToDec)
就像调用 Sub 过程那样,也能调用函数 。下面的语句都调用同一个函数:
Call Year (Now)
Year Now
当用这种方法调用函数时,Visual Basic 放弃返回值 。
调用其它模块中的过程
在工程中的任何地方都能调用其它模块中的公用过程 。可能需要指定这样的模块,它包含正在调用的过程 。调用其它模块中的过程的各种技巧 , 取决于该过程是在窗体模块中、类模块中还是标准模块中 。
窗体中的过程
所有窗体模块的外部调用必须指向包含此过程的窗体模块 。如果在窗体模块 Form1 包含 SomeSub 过程,则可使用下面的语句调用 Form1 中的过程:
Call Form1.SomeSub(arguments)
类模块中的过程
与窗体中调用过程类似,在类模块中调用过程要调用与过程一致并且指向类实例的变量 。例如 , DemoClass 是类 Class1 的实例:
Dim DemoClass as New Class1
DemoClass.SomeSub
但是不同于窗体的是,在引用一个类的实例时,不能用类名作限定符 。必须首先声明类的实例为对象变量(在这个例子中是 DemoClass )并用变量名引用它 。
标准模块中的过程
如果过程名是唯一的 , 则不必在调用时加模块名 。无论是在模块内,还是在模块外调用,结果总会引用这个唯一过程 。如果过程仅出现在一个地方,这个过程就是唯一的 。
如果两个以上的模块都包含同名的过程,那就有必要用模块名来限定了 。在同一模块内调用一个公共过程就会运行该模块内的过程 。例如,对于 Module1 和 Module2 中名为 CommonName 的过程,从 Module2 中调用 CommonName 则运行 Module2 中的 CommonName 过程,而不是 Module1 中的 CommonName 过程 。
从其它模块调用公共过程名时必须指定那个模块 。例如,若在 Module1 中调用 Module2 中的 CommonName 过程,要用下面的语句:
Module2.CommonName (arguments)
Public用于声明对所有模块中的所有其它过程都可以使用的过程 。
Private用于声明只能在包含该声明的模块中使用的过程 。
怎样用VB.NET写和调用DLl窗体一、带窗体的dll创建
1、先新建 类库(testdll) , 在项目中添加两个窗体form1(主窗体)、form2,为了与后面的调用区分分别命名为fm1,fm2;并在fm1窗体中添加一个按钮用来调用fm2如下图
2、在fm1窗体代码中先引用fm2,按钮代码调用fm2.如图
3、生成dll,(class1.vb中不需要写任何代码)
二、调用dll
1、新建 一个windows应用程序并添加一个按钮用来调用dll中的窗体,选 择 “项目”-“添加引用” , 选择刚才创建的testdll
2、窗体代码中先引用testdll,再定义一个testdll中的fm1对象,最后执行对象的show方法
3、运行结果如下:
【vb.net窗体间调用 vb怎么调用窗体】关于vb.net窗体间调用和vb怎么调用窗体的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站 。
推荐阅读
- 视频号怎么定位置,视频号的定位是什么
- 微信小程序直播怎么关掉,微信小程序直播回放怎么关闭
- 经营类手机游戏中文,经营类的手机游戏单机
- c语言传数组给函数 c语言函数传出数组
- 如何快速启动电商,如何开始电商创业
- redis单进程memcache多进程,redis多进程并发操作
- 字节游戏战略面试,字节跳动游戏面试题
- mysql源代码怎么打开 看懂mysql源码需要什么基础
- chatgpt写python,ChatGPT写Python代码