VB點虐 關(guān)于窗體事件的問題

你不要用Form1做為啟動窗口就不會這樣了

梅縣網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián),梅縣網(wǎng)站設(shè)計制作，有大型網(wǎng)站制作公司豐富經(jīng)驗。已為梅縣近千家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站制作要多少錢，請找那個售后服務(wù)好的梅縣做網(wǎng)站的公司定做！

告訴你解決方法:

1.添加新項-"模塊"

2.在新建的模塊文件里建立一個函數(shù),及其代碼如下:

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.在項目屬性-應(yīng)用程序-啟動窗體 那里選擇"Sub Main"

4.在你需要程序退出的地方加一句:

Application.Exit()

搞定!

vb點虐 關(guān)于循環(huán)語句

我寫了一段代碼，注意你讀取的方法，我改進(jìn)了一下 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) ’注意選擇編碼方式，按你原來的方法，未設(shè)置編碼，顯示的是亂碼！路徑請按你的情況改！ TextBox.Text = sr.ReadToEnd()

i += 1 End If

Next

MsgBox("已經(jīng)載入" i - 1 "個文件") End Sub注意：這樣的代碼是倒序的，第一個文本框顯示的是最后一個文件的內(nèi)容！請酌情處理！

關(guān)于在VB.NET中怎么使用事務(wù)的問題，還有其

在vb點虐 中要定義一個事務(wù)，需要使用Begin tran命令，在這一命令之后的任何語句都將被認(rèn)為是事務(wù)的一部分。命令Commit用來完成VB.NET處理，并使事務(wù)對數(shù)據(jù)庫所作的修改成為永久的。Rollback命令用來取消一個事務(wù)，并還原事務(wù)對數(shù)據(jù)庫所作的修改。