在vb中顯示調試配置文件

1. VB使用過程中如何調試

直接點擊程序窗口左側區域就可以給對應行加上斷點（該行變紅）了；
要用立即窗口，可以在程序中用debug.print，調試運行時輸出結果就會出現在立即窗口中了。

2. VB如何調試

調試的兩種方法：

1. 按下F5

2. 點擊「右箭頭」即可調試

調試的時候如果想要知道那一步錯了，可以設置斷點。

斷點設立方法：將游標移動到你所要監視的語句，按F9設立斷點，當程序運行到斷點處時，程序中斷暫停，之後可按F8逐句運行語句，通過該方法尋找程序錯誤

3. 如何在VB中使用調試

VB單步調試需要設置斷點，在程序代碼中，將游標移到要設置斷點的那條語句前面，然後執行「調試」菜單中的「切換斷點」命令。
1、設置了斷點的代碼行將以粗體形式突出顯示，如圖所示：
2、單步調試即逐個語句地執行程序，程序每執行完一條語句，就發生中斷。執行「調試」菜單中的「逐語句」命令（快捷鍵：F5鍵開始執行，F8鍵運行下一步）。

4. 關於VB的調試

補充：
雖然定義了connectstring函數，但是沒有調用connectstring，而且connectstring函數僅僅是一個連接字元串，沒有真正的資料庫連接語句；
記錄集的連接沒有！
關鍵語句：
Dim conn As New ADODB.Connand
Dim mrc As New ADODB.Recordset
conn.ConnectionTimeout = 10
conn.CursorLocation = adUseServer
conn.ConnectionString = "driver={SQL Server};server=伺服器名稱;uid=sa;pwd=密碼;database=數據源名稱"
conn.Open '連接資料庫
strSQL = "select * from User_info"
mrc.Open strSQL, conn, 3, 3 '連接數據表
以上是SQL資料庫連接語句。

1、Dim mrc As New ADODB.Recordset 定義了記錄集對象，但是沒有定義資料庫鏈接對象，例如：Dim conn As New ADODB.Connand
2、沒有資料庫鏈接語句，同樣沒有記錄集鏈接語句
3、資料庫鏈接對象和記錄集鏈接對象定義必須在程序的開始部分，也就是必須定義為全局對象。不能定義在某個過程中。
4、在程序的引用中是否已經引用了ADODB？
5、Else '添加新用戶
mrc.AddNew
記錄集已經卸載，不可能更新和添加記錄！

5. VB界面上沒有調試工具欄,可通過選中「視圖」菜單中的中的「調試」命令把它顯示出來。

首先打開VB6.0，在工具欄上單擊右鍵，彈出一個框，選擇「自定義」

6. 請教如何在vb6中調試Dll

VB6.0在IDE窗口按鍵盤快捷鍵：F8。可啟動逐語句調試。 1.逐語句 一次執行一個語句。 「逐語句」會執行在當前執行點上的語句。如果此語句是對一個過程的調用，下一個被顯示的語句就是該過程內的第一個語句。

7. vb如何調試exe文件

今天在修改VB 6.0程序的時候(都沒有寫過VB 6.0)怎麼調試都沒有辦法將原來的.exe文件更新了，後來在菜單上找了好久終於看到了在File菜單欄下面有一個Make xxx.exe 的項，，抱著試試看的態度點了一下，，哇，，成功了。。高興呀，，哎，後悔英語沒有學好的！後來在網路上找到了一個人寫的，呵，有打包的方法，，特此一起收取： 1、簡單的程序,就只要在File(文件)菜單下的Make xxx.exe(生成),生成的EXE文件和你要用的資料庫和其他外部文件一起移植到其他電腦上,就可以了。 2、復雜的程序,建議用打包,打包完以後,在其他電腦上安裝以後再用.打包方法--------打開菜單欄外接程序外接程序管理器，選擇打包和展開向導，選擇載入/卸載，確定。在外接程序管理器里找到打包和展開向導，打開打包和展開向導，再一步步進行打包就可以生成一個安裝程序。

8. 請問在VB6.0中，怎樣讀寫和生成.ini配置文件

給你一個類，專門讀寫INI的

classIniFile.cls：

Option Explicit

Private strINI As String
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Private Function MakePath(ByVal strDrv As String, ByVal strDir As String) As String
Do While Right$(strDrv, 1) = "\"
strDrv = Left$(strDrv, Len(strDrv) - 1)
Loop

Do While Left$(strDir, 1) = "\"
strDir = Mid$(strDir, 2)
Loop

MakePath = strDrv & "\" & strDir
End Function

Private Sub CreateIni(strDrv As String, strDir As String)
strINI = MakePath(strDrv, strDir)
End Sub

Public Sub WriteIniKey(strSection As String, strKey As String, strValue As String)
WritePrivateProfileString strSection, strKey, strValue, strINI
End Sub

Public Function GetIniKey(strSection As String, strKey As String) As String
Dim strTmp As String
Dim lngRet As String
Dim I As Integer
Dim strTmp2 As String

strTmp = String$(1024, Chr(32))
lngRet = GetPrivateProfileString(strSection, strKey, "", strTmp, Len(strTmp), strINI)
strTmp = Trim(strTmp)
strTmp2 = ""
For I = 1 To Len(strTmp)
If Asc(Mid(strTmp, I, 1)) <> 0 Then
strTmp2 = strTmp2 + Mid(strTmp, I, 1)
End If
Next I
strTmp = strTmp2

GetIniKey = strTmp
End Function

Public Property Let INIFileName(ByVal New_IniPath As String)
strINI = New_IniPath
End Property

Public Property Get INIFileName() As String
INIFileName = strINI
End Property

Public Function DelIniKey(ByVal SectionName As String, ByVal Keyword As String)
Dim RetVal As Integer
RetVal = WritePrivateProfileString(SectionName, KeyWord, 0&, strINI)
End Function

Public Function DelIniSec(ByVal SectionName As String)
Dim RetVal As Integer
RetVal = WritePrivateProfileString(SectionName, 0&, "", strINI)
End Function

示例：

Dim myIni As New classIniFile
Const myinifile = "\mail.ini"
myIni.INIFileName = App.Path & myinifile
myIni.WriteIniKey "mail", "pop3", pop3

9. 如何用VB讀取ini配置文件

為了方便用戶使用和使系統具有靈活性，大多數Win-dows應用程序將用戶所做的選擇以及各種變化的系統信息記錄在初始化(INI)文件中。因此，當系統的環境發生變化時，可以直接修改INI文件，而無需修改程序。由此可見，INI文件對系統功能是至關重要的。本文將介紹採用VisualBasicforWindows(下稱VB)開發Windows應用程序時如何讀寫INI文件。

INI文件是文本文件，由若幹部分(section)組成，在每個帶括弧的標題下面，是若干個以單個單詞開頭的關鍵詞(keyword)和一個等號，每個關鍵詞會控制應用程序某個功能的工作方式，等號右邊的值(value)指定關鍵詞的操作方式。其一般形式如下:

[section1]
keyword1=valuel
keyword2=value2
……
[section2]
keyword1=value1
keyword2=value2
……

其中，如果等號右邊無任何內容(即value為空)，那就表示Windows應用程序已為該關鍵詞指定了預設值，如果在整個文件中找不到某個關鍵詞(或整個一部分)，那同樣表示為它們指定了預設值。各個部分所出現的順序是無關緊要的，在每一個部分里，各個關鍵詞的順序同樣也無關緊要。

讀寫INI文件通常有兩種方式:一是在Windows中用"記事本"(Notepad)對其進行編輯，比較簡單，無需贅述;二是由Windows應用程序讀寫INI文件，通常是應用程序運行時讀取INI文件中的信息，退出應用程序時保存用戶對運行環境的某些修改。

關鍵詞的值的類型多為字元串或整數型，應分兩種情況讀寫。為了使程序具有可維護性和可移植性，最好把對INI文件的讀寫封裝在一個模塊(RWINI.BAS)中，在RWI-NI.BAS中構造GetIniS和GetIniN函數以及SetIniS和Se-tIniN過程，在這些函數和過程中需要使用WindowsAPI的"GetPrivateprofileString"、"GetPrivateProfileInt"和"WritePrivateProfileString"函數。

RWINI.BAS模塊的程序代碼如下:

在General-Declearation部分中聲明使用到的WindowsAPI函數:

Declare Function GetprivateprofileString Lib"Ker-nel"(ByVallpAppName As String，ByVallpKeyName As String，ByVallpDefault As String，ByVal lpRetrm-String As String，ByVal cbReturnString As Integer，ByVal Filename As String)As Integer
Declare FunctionGetPrivatePfileInt Lib "Kernel"(ByVal lpAppName As String，ByVal lpKeyName As String，ByVal lpDefault As Integer，ByVal Filename As String)As Integer
Declare Lib "Kernel"(ByVal lpApplicationName As String，ByVal lpKeyName As String，ByVal lpString As String，ByVal lplFileName As String)As Integer
Function GetIniS(ByVal SectionName As String，ByVal KeyWord As String，ByVal DefString As String)As String
Dim ResultString As String * 144，Temp As Integer
Dims As String，i As Integer
Temp%=GetPrivateProfileString(SectionName，KeyWord，""，ResultString，144，AppProfileName())
『檢索關鍵詞的值
IfTemp%＞0Then『關鍵詞的值不為空
s=""
Fori=1To144
IfAsc(Mid$(ResultString，I，1))=0Then
ExitFor
Else
s=s&Mid$(ResultString，I，1)
EndIf
Next
Else
Temp%=WritePrivateProfilesString(sectionname，KeyWord，DefString，ppProfileName())
『將預設值寫入INI文件
s=DefString
EndIf
GetIniS=s
EndFunction
FunctionGetIniN(ByValSectionNameAsString，ByValKeyWordAsString，ByValDefValue
AsIneger)AsInteger
DimdAsLong，sAsString
d=DefValue
GetIniN=GetPrivateProfileInt(SectionName，
KeyWord，DefValue，ppProfileName())
Ifd＜＞DefValueThen
s=""&d
d=WritePrivateProfileString(SectionName，
KeyWord，s，AppProfileName())
EndIf
EndFunction
SubSetIniS(ByValSectionNameAsString，BtVaKeyWordAsString，ByValValStr
AsString)
Dimres%
res%=WritePrivateprofileString(SectionName，KeyWord，ValStr，AppProfileName())
EndSub
SubSetIniN(ByValSectionNameAsString，ByValKeyWordAsString，ByValValInt
AsInteger)
Dimres%，s$
s$=Str$(ValInt)
res%=WriteprivateProfileString(SectionName，KeyWord，s$，AppProfileName())
EndSub

SectionName為每一部分的標題，KeyWord為關鍵詞，GetIniS和GetIniN中的DefValue為關鍵詞的預設值，SetIniS和SetIniN的ValStr和ValInt為要寫入INI文件的關鍵詞的值。為了能更好地說明如何使用以上函數和過程，下面舉兩個實例。

實例1:

開發應用程序通常要使用資料庫和其它一些文件，這些文件的目錄(包括路徑和文件名)不應在程序中固定，而是保存在INI文件中，程序運行時由INI文件中讀入。讀入資料庫文件的代碼如下:
DimDatabasenameAsString
Databasename=GetIniS("資料庫"，"職工"，"")
IfDatabaseName=""ThenDatabaseName=InputBox("請輸入資料庫《職工》的目錄")，
App.Title)』也可通過"文件對話框"進行選擇
OnErrorResumeNext
Setdb=OpenDatabas(DatabaseName)
IfErr＜＞0Then
MsgBox"打開資料庫失敗!"，MB-
ICONSTOP，App.Title:GotoErrorProcessing
Else
SetIniS"資料庫"，"職工"，DatabaseName
EndIf
OnErrorGoTo0
……
實例2:

為了方便用戶操作，有時需要保存用戶界面的某些信息，例如窗口的高度和寬度等。裝載窗體時，從INI文件中讀入窗體高度和寬度，卸載窗體時將窗體當前高度和寬度存入INI文件，代碼如下:
Sub Form1_Load()
……
Forml.Height=GetIniN("窗體1"，"高度"，6000)
Form1.Width=GetIniN("窗體1"，"高度"，4500)
EndSub
……
Sub Form1_Unload()
……
SetIniN"窗體1"，"高度"，Me.Height
SetIniN"窗體1，"寬度"，Me.Width
……
End Sub

10. 我現在要做個VB程序，需要有一個config配置文件，請問一下怎麼在程序里邊創建這個配置文件了呢詳細點，

項目-windowapplication1（項目名字）屬性-設置
設置要保存的默認屬性
在解決方案資源管理器中雙擊app。config文件直接編輯