VB.net 全局变量的定义以及初始化

我的思路是

Public class form1{
Dim n As Integer

n=0 '放哪里 怎么用????

private sub B()
for n to 10
......
Next
End sub
End Class
}

第1个回答  推荐于2017-11-26
VB.NET中所有变量都应该在某个类级成员里面,很少有说“全局变量”的,如果要实现它需要定义模块,这里暂时不考虑。
如果在单窗体项目中,直接在Class Form1中定义的n是Form1的成员变量;如果你在Sub B中定义n,它就是一个局部变量,它们的生命周期是不同的。
作为成员变量时,若Sub B对n进行了访问和修改,那么下一次Sub B访问的依然是修改过的n。而作为局部变量的n,在每次Sub B中Dim n As Integer时都会重新初始化一次,修改后,一旦End Sub,修改的n也就失效了。
另:局部变量需要赋初值,比如Dim n As Integer = 0本回答被提问者采纳
第2个回答  2014-06-10
Dim n As Integer =0

在vb.net中如何申明一个全局变量并赋值
Public m as string = textbox1.tex 不要放在任何过程里。加在下边 在这里 sub a()可以访问m了。end sub

VB.net2010自定义组件怎么出现在工具箱
打开form1.designer。vb 在Partial Class Form1类中的最后添加:Friend WithEvents MergeColumn1 As WindowsApplication1.MergeColumn’定义控件的全局变量 找到public sub InitializeComponent过程,在里面添加:Me.MergeColumn1 = New WindowsApplication1.Datavip()‘初始化。Me.MergeColumn1.Location = New...

vb.net全局变量放在什么地方
在VB.NET中,要创建全局变量,可以考虑创建一个新的模块(Module)。在这个模块中,使用public关键字声明变量,这样就可以在整个项目中访问这些变量,无需担心作用域问题。例如:<Module1.vb>

VB中怎么给全局变量,怎么给全局变量赋值
vb中不能在定义变量时给变量赋值,对于 全局变量最好定义到Bas中。然后再Frm或者Cls中就可以直接使用和赋值了。public a as string ---在Bas或者Cls中a=“dasfdsak” ---在Frm函数或者方法,事件中写。 lanniao007 | 发布于2011-09-02 举报| 评论 1 0 在模块中可以这样写,在窗体的通用过程也可以,但...

VB.NET多线程变量问题
你需要定义一个公共变量模块,来存储线程类里面的变量。这样在线程结束后变量值都存在模块变量里面了。当再次开启线程再把数据赋给类里面。

有关VB.NET keypress 事件的问题
定义两个变量 Private run As Boolean = False'过程是否在运行 Private Key_L As Boolean = False'L键是否按下 变通方法:加定时器,要执行的过程放在定时器中调用 keypress事件只检测某个键是否按下 在家里没有VS,引用我以前的例子给你,定义的是全局键盘,也就是在程序不激活的状态也能执行 下...

vb.net如何编辑txt内容和取代内容
先在外面定义一个全局变量dim isWindows as int16=0 以下是你按下窗口模式的按钮代码:if isWindows=0 then isWindows=1 else isWindows=0 end if Dim sw As StreamWriter = New StreamWriter("你的txt文件路径", True)sw.WriteLine(isWindows)sw.Close()

vb.net 在Module1中定义的全局变量在Module2使用时出现错误
Public int1 As Long,在Module2使用时 int1 = 1 你的错误在此:Public int1 As integer 在Module2使用时 int1 = 1 就可以了。‘或者 Public int1 As Long 在Module2使用时 int1 = 1L 或者你的类头部设置去改一下。

如何在vb.net中输入一串字符,每隔X秒就按序输出一个字符
加一个定时器,时间自己设定 假设已经定义了全局变量index,在定时器里面写入下面代码,str则为每次要输出的字符。If index < TextBox1.Text.Length Then Dim str As String = Mid(TextBox1.Text, index + 1, 1)Else index = 0 End If ...

vb连接数据库sqlserver的问题
'首先定义全局变量myDataSet及GetConnected()方法,代码如下:Public Class Form1Inherits FormPrivate WithEvents Button1 As ButtonPrivate TextBox1 As TextBox……(省略部分自动生成代码) Private myDataSet As DataSetPrivate components As System.ComponentModel.ContainerPublic Sub New()MyBase.New()GetConnected() '...

相似回答