大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
你不要用Form1做为启动窗口就不会这样了
梅县网站建设公司创新互联,梅县网站设计制作,有大型网站制作公司丰富经验。已为梅县近千家提供企业网站建设服务。企业网站搭建\成都外贸网站制作要多少钱,请找那个售后服务好的梅县做网站的公司定做!
告诉你解决方法:
1.添加新项-"模块"
2.在新建的模块文件里建立一个函数,及其代码如下:
Sub Main()
Application.EnableVisualStyles()
Dim frm1 As New Form1
frm1.Show()
frm1.Refresh()
Dim frm2 As New Form2
frm2.Show()
frm2.Refresh()
frm1.Hide()
Application.Run()
End Sub
3.在项目属性-应用程序-启动窗体 那里选择"Sub Main"
4.在你需要程序退出的地方加一句:
Application.Exit()
搞定!
我写了一段代码,注意你读取的方法,我改进了一下 Imports System.IO ‘代码窗体的最上端一定要声明
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sr As StreamReader Dim TextBox As Control
Dim i As Integer
i = 1
For Each TextBox In Me.Controls
If TypeName(TextBox) = "TextBox" Then sr = New StreamReader("c:\save\" i ".ini", System.Text.Encoding.Default) ’注意选择编码方式,按你原来的方法,未设置编码,显示的是乱码!路径请按你的情况改! TextBox.Text = sr.ReadToEnd()
i += 1 End If
Next
MsgBox("已经载入" i - 1 "个文件") End Sub注意:这样的代码是倒序的,第一个文本框显示的是最后一个文件的内容!请酌情处理!
在vb点虐 中要定义一个事务,需要使用Begin tran命令,在这一命令之后的任何语句都将被认为是事务的一部分。命令Commit用来完成VB.NET处理,并使事务对数据库所作的修改成为永久的。Rollback命令用来取消一个事务,并还原事务对数据库所作的修改。