vb.net程序重复运行 vb重复代码

vb.net如下代码只能运行一次，第二次后就没效果了，求解？

因为你Dim lByte As Byte 没有声名数组vb.net程序重复运行，

lSWiter.WriteByte(Nothing) '这句话也是错误的vb.net程序重复运行，你把文件流给写入空了，所以第二次运行打开文件就没有数据了。

多调试，跟踪数据，可以多学点经验。

相关问答

Q1: VB怎样循环执行

你可以把Rasdial命令写入一个批处理文件中，把Text13.Text和Text6.Text作为参数传递给这个批处理文件，然后在批处理中进行循环执行以及按键退出的处理即可。

要想用VB来控制Rasdial命令循环执行虽然可以实现，但实现的方法可就复杂得很了。所以最好的办法还是在DOS批处理中解决比较好，VB只需直接调用这个批处理文件即可。

当然最好的办法还是直接调用windows系统的图形界面的“拨号连接”程序。windows时代将近10年了，还用黑白的DOS程序，太奥特曼了吧？

Q2: vb中，怎么让一个程序结束后自动重新运行一遍？求代码

无法实现vb.net程序重复运行，程序本身无法重启本身。程序本身关闭后vb.net程序重复运行，啥都没有vb.net程序重复运行了vb.net程序重复运行，拿什么来再次启动运行?除非在结束前调用其它程序，在其它程序中再调用此程序，可实现。

Q3: VB中如何重复运行某个命令,比如Shell ("CMD /C MD E:\%RANDOM% ...\)让这个重复运行

可以用循环语句for ... next .. 或者 Do...Loop...，例如：

for i=1 to 100 '循环100次

Shell ("CMD /C MD E:\%RANDOM% ...\)

next

Q4: vb中如何禁止重复运行程序,激活已打开程序至前台

最简单的

把窗口句柄写到某个地方

定义API

ShowWindow

Private

Sub

Form_Load()

If

App.PrevInstance

Then

Dim

hWnd

As

Long

hWnd

=

....'读取句柄

Call

ShowWindow(hWnd,

vbNormal)

End

If

End

Sub

Q5: 如何在VB程序中重复利用一段代码

把重复利用的一段代码写成函数，调用即可，给你举个例子：

Private Sub Command1_Click()

dim i,j

j = Format(Dec_to_Bin((i + 65536)), "0000000000000000") '调用函数

End Sub

Public Function Dec_to_Bin(ByVal Dec As Long) As String '重复利用的代码写成函数

Dec_to_Bin = ""

Do While Dec  0

    Dec_to_Bin = Dec Mod 2  Dec_to_Bin

    Dec = Dec \ 2

Loop

End Function

关于vb.net程序重复运行和vb重复代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。