在vb中显示调试配置文件|如何用VB读取ini配置文件

1. VB使用过程中如何调试

直接点击程序窗口左侧区域就可以给对应行加上断点(该行变红)了;要用立即窗口,可以在程序中用debug.print,调试运行时输出结果就会出现在立即窗口中了。

2. VB如何调试

调试的两种方法:

按下F5

点击“右箭头”即可调试

调试的时候如果想要知道那一步错了,可以设置断点。

断点设立方法:将光标移动到你所要监视的语句,按F9设立断点,当程序运行到断点处时,程序中断暂停,之后可按F8逐句运行语句,通过该方法寻找程序错误

3. 如何在VB中使用调试

VB单步调试需要设置断点,在程序代码中,将光标移到要设置断点的那条语句前面,然后执行“调试”菜单中的“切换断点”命令。1、设置了断点的代码行将以粗体形式突出显示,如图所示:2、单步调试即逐个语句地执行程序,程序每执行完一条语句,就发生中断。执行“调试”菜单中的“逐语句”命令(快捷键:F5键开始执行,F8键运行下一步)。

4. 关于VB的调试

补充:虽然定义了connectstring函数,但是没有调用connectstring,而且connectstring函数仅仅是一个连接字符串,没有真正的数据库连接语句;记录集的连接没有!关键语句:Dim conn As New ADODB.ConnandDim 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.Connand2、没有数据库链接语句,同样没有记录集链接语句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 classIniFileConst 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=valuelkeyword2=value2……[section2]keyword1=value1keyword2=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 IntegerDeclare FunctionGetPrivatePfileInt Lib "Kernel"(ByVal lpAppName As String,ByVal lpKeyName As String,ByVal lpDefault As Integer,ByVal Filename As String)As IntegerDeclare Lib "Kernel"(ByVal lpApplicationName As String,ByVal lpKeyName As String,ByVal lpString As String,ByVal lplFileName As String)As IntegerFunction GetIniS(ByVal SectionName As String,ByVal KeyWord As String,ByVal DefString As String)As StringDim ResultString As String * 144,Temp As IntegerDims As String,i As IntegerTemp%=GetPrivateProfileString(SectionName,KeyWord,"",ResultString,144,AppProfileName())‘检索关键词的值IfTemp%>0Then‘关键词的值不为空s=""Fori=1To144IfAsc(Mid$(ResultString,I,1))=0ThenExitForElses=s&Mid$(ResultString,I,1)EndIfNextElseTemp%=WritePrivateProfilesString(sectionname,KeyWord,DefString,ppProfileName())‘将缺省值写入INI文件s=DefStringEndIfGetIniS=sEndFunctionFunctionGetIniN(ByValSectionNameAsString,ByValKeyWordAsString,ByValDefValueAsIneger)AsIntegerDimdAsLong,sAsStringd=DefValueGetIniN=GetPrivateProfileInt(SectionName,KeyWord,DefValue,ppProfileName())Ifd<>DefValueThens=""&dd=WritePrivateProfileString(SectionName,KeyWord,s,AppProfileName())EndIfEndFunctionSubSetIniS(ByValSectionNameAsString,BtVaKeyWordAsString,ByValValStrAsString)Dimres%res%=WritePrivateprofileString(SectionName,KeyWord,ValStr,AppProfileName())EndSubSubSetIniN(ByValSectionNameAsString,ByValKeyWordAsString,ByValValIntAsInteger)Dimres%,s$s$=Str$(ValInt)res%=WriteprivateProfileString(SectionName,KeyWord,s$,AppProfileName())EndSubSectionName为每一部分的标题,KeyWord为关键词,GetIniS和GetIniN中的DefValue为关键词的缺省值,SetIniS和SetIniN的ValStr和ValInt为要写入INI文件的关键词的值。为了能更好地说明如何使用以上函数和过程,下面举两个实例。实例1:开发应用程序通常要使用数据库和其它一些文件,这些文件的目录(包括路径和文件名)不应在程序中固定,而是保存在INI文件中,程序运行时由INI文件中读入。读入数据库文件的代码如下:DimDatabasenameAsStringDatabasename=GetIniS("数据库","职工","")IfDatabaseName=""ThenDatabaseName=InputBox("请输入数据库《职工》的目录"),App.Title)’也可通过"文件对话框"进行选择OnErrorResumeNextSetdb=OpenDatabas(DatabaseName)IfErr<>0ThenMsgBox"打开数据库失败!",MB-ICONSTOP,App.Title:GotoErrorProcessingElseSetIniS"数据库","职工",DatabaseNameEndIfOnErrorGoTo0……实例2:为了方便用户操作,有时需要保存用户界面的某些信息,例如窗口的高度和宽度等。装载窗体时,从INI文件中读入窗体高度和宽度,卸载窗体时将窗体当前高度和宽度存入INI文件,代码如下:Sub Form1_Load()……Forml.Height=GetIniN("窗体1","高度",6000)Form1.Width=GetIniN("窗体1","高度",4500)EndSub……Sub Form1_Unload()……SetIniN"窗体1","高度",Me.HeightSetIniN"窗体1,"宽度",Me.Width……End Sub

10. 我现在要做个VB程序,需要有一个config配置文件,请问一下怎么在程序里边创建这个配置文件了呢详细点,

项目-windowapplication1(项目名字)属性-设置设置要保存的默认属性在解决方案资源管理器中双击app。config文件直接编辑


赞 (0)