精华内容
下载资源
问答
  • VB源码--如何保存文件 存储资料到记事本中 '┏〓〓〓〓〓〓〓〓〓 SaveFile,start 〓〓〓〓〓〓〓〓〓┓ '[详介]: '保存时有时会乱码或变样 '[简介]: '保存字符信息到文本文件,保存资料 Function ...
    VB源码--如何保存文件 存储资料到记事本中
    
    '┏〓〓〓〓〓〓〓〓〓 SaveFile,start 〓〓〓〓〓〓〓〓〓┓
    '[详介]:
    '保存时有时会乱码或变样
    '[简介]:
    '保存字符信息到文本文件,保存资料
    Function SaveFile(zname, zbody,optional msg as boolean)
       '[mycode_id:177],edittime:2011-9-9 下午 03:29:57
          On Error GoTo err
          Dim myfile, fso
          Set fso = CreateObject("Scripting.FileSystemObject")
          Set myfile = fso.CreateTextFile(zname, True)
          myfile.Write zbody
          Set myfile = Nothing
          Set fso = Nothing
          If msg Then MsgBox "保存成功!" & vbCrLf & zname
          Exit Function
          err:
          'MsgBox err.Description
    End Function
    '┗〓〓〓〓〓〓〓〓〓  SaveFile,end  〓〓〓〓〓〓〓〓〓┛
    

    展开全文
  • !... ``` Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Me.ListBox1.Items.Clear() ...我编的这个只是在listbox中显示了文件里面数据,并没有存成数组,请问该如何修改呢?
  • 用代码生成一个文本文件 将一组数据 例如{1,2,3,4,5,6}写入其中 一个数据占一行 也就是换行写入 最后写完以后保存
  • 其实只要用 RichTextBox1.SaveFile 文件名,1 这种格式就可以了。
  • 这是保存图片的方法 PathJPGString = App.Path & "\JPEG\" & Trim(FormMain.PropertyGrid1.FindItem(1).value) & CurID & ".jpg Call FormMain.chart1.Export.SaveToBitmapFile(PathJPGString)
  • VB如何操作INI文件

    千次阅读 2007-01-16 16:03:00
    在程序中经常要用到设置或者其他少量数据的存盘,以便程序在下一次执行的时候可以使用,比如说保存本次程序执行时窗口的位置、大小、一些用户设置的数据等等,在 Dos 下编程的时候,我们一般自己产生一个文件,由...

    在程序中经常要用到设置或者其他少量数据的存盘,以便程序在下一次执行的时候可以使用,比如说保存本次程序执行时窗口的位置、大小、一些用户设置的数据等等,在 Dos 下编程的时候,我们一般自己产生一个文件,由自己把这些数据写到文件中,然后在下一次执行的时候再读出来使用。在 Win32 编程中当然你也可以这样干,但 Windows 已经为我们提供了两种方便的办法,那就是使用注册表或者 ini 文件(Profile)来保存少量数据。本文中先介绍一下 .ini 文件的使用。

    ini 文件是文本文件,中间的数据格式一般为:
    [Section1 Name]
    KeyName1=value1
    KeyName2=value2
    ...

    [Section2 Name]
    KeyName1=value1
    KeyName2=value2

    ini 文件可以分为几个 Section,每个 Section 的名称用 [] 括起来,在一个 Section 中,可以有很多的 Key,每一个 Key 可以有一个值并占用一行,格式是 Key=value,Win32 对 ini 文件操作的 api 中,有一部分是对 win.ini 操作的,有一部分是对用户自定义的 ini 文件操作的。Win.in 和 system.ini 是Windows的两个非常重要的初始化文件,Windows将用户所作的选择以及各种变化的系统信息记录在这两个文件中。System.ini 描述了系统硬件的当前状态,Win.ini 文件则包含了Windows 系统运行环境的当前配置。由于 Win.ini 文件的重要性和常用性,Win32 中有专门对 Win.ini 进行操作的 api,它们是:

    GetProfileInt - 从 Win.ini 文件的某个 Section 取得一个 key 的整数值,它的原形是:

    GetProfileInt(
    LPCTSTR lpAppName, // 指向包含 Section 名称的字符串地址
    LPCTSTR lpKeyName, // 指向包含 Key 名称的字符串地址
    INT nDefault // 如果 Key 值没有找到,则返回缺省的值是多少
    );

    如果 Key 值没有找到的话,返回值是 nDefault 指定的缺省值,如果 Key 中的值是负数,则返回 0,如果 Key 指定的是数字和字符串的混合,则返回数字部分的值,比如说 x=1234abcd,则返回 1234


    GetProfileString - 从 Win.ini 文件的某个 Section 取得一个 key 的字符串,它的原形是:

    GetProfileString(
    LPCTSTR lpAppName, // 指向包含 Section 名称的字符串地址
    LPCTSTR lpKeyName, // 指向包含 Key 名称的字符串地址
    LPCTSTR lpDefault, // 如果 Key 值没有找到,则返回缺省的字符串的地址
    LPTSTR lpReturnedString, // 返回字符串的缓冲区地址
    DWORD nSize // 缓冲区的长度
    );

    返回的字符串在缓冲区内,返回的 eax 值是返回的字符串的长度(不包括尾部的0)


    GetProfileSection - 从 Win.ini 文件中读出整个 Section 的内容,它的原形是:

    GetProfileSection(
    LPCTSTR lpAppName, // 指向包含 Section 名称的字符串地址
    LPTSTR lpReturnedString, // 返回数据的缓冲区地址
    DWORD nSize // 返回数据的缓冲区长度
    );


    WriteProfileSection - 将一个整个 Section 的值 写入 Win.ini 文件的指定 Section 中,它的原形是:

    WriteProfileSection(
    LPCTSTR lpAppName, // 指向包含 Section 名称的字符串地址
    LPCTSTR lpString // 要写入的数据的地址
    );

    如果 Win.ini 没有指定的 Section,API 会新建立一个并写入数据,如果已经存在,则先删除原来 Seciton 中所有的 Key 值然后写入新的。


    WriteProfileString - 将一个 Key 值写入 Win.ini 文件的指定 Section 中,它的原形是:

    WriteProfileString(
    LPCTSTR lpAppName, // 指向包含 Section 名称的字符串地址
    LPCTSTR lpKeyName, // 指向包含 Key 名称的字符串地址
    LPCTSTR lpString // 要写的字符串地址
    );

    如果 Win.ini 没有指定的 Section,API 会新建 Section,如果没有指定的 Key 则新建一个 Key 并写入数据,如果已经存在,则用字符串代替原来的值。
    以上的 Api 是对 Win.ini 操作的,当然对于我们来说,用的更多的是在程序运行的目录中建立自己的 ini 文件,如果需要对自己的 ini 文件操作,就要用到另一组 Api,这一组 api 和上面的很象,只要把上面一组的 Profile 换成 PrivateProfile(私有的)就可以了,参数中也相应的多了一个 ini 文件名的参数。例如 GetPrivateProfileInt、GetPrivateProfileSection、WritePrivateProfileString 等等, 下面分别介绍:

    GetPrivateProfileInt - 从 ini 文件的某个 Section 取得一个 key 的整数值,它的原形是:

    GetPrivateProfileInt(
    LPCTSTR lpAppName, // 指向包含 Section 名称的字符串地址
    LPCTSTR lpKeyName, // 指向包含 Key 名称的字符串地址
    INT nDefault // 如果 Key 值没有找到,则返回缺省的值是多少
    LPCTSTR lpFileName // ini 文件的文件名
    );

    中间参数和返回值的定义和 GetProfileInt 是一样的。


    GetPrivateProfileString - 从 ini 文件的某个 Section 取得一个 key 的字符串,它的原形是:

    GetPrivateProfileString(
    LPCTSTR lpAppName, // 指向包含 Section 名称的字符串地址
    LPCTSTR lpKeyName, // 指向包含 Key 名称的字符串地址
    LPCTSTR lpDefault, // 如果 Key 值没有找到,则返回缺省的字符串的地址
    LPTSTR lpReturnedString, // 返回字符串的缓冲区地址
    DWORD nSize // 缓冲区的长度
    LPCTSTR lpFileName // ini 文件的文件名
    );


    GetPrivateProfileSection - 从 ini 文件中读出整个 Section 的内容,它的原形是:

    GetPrivateProfileSection(
    LPCTSTR lpAppName, // 指向包含 Section 名称的字符串地址
    LPTSTR lpReturnedString, // 返回数据的缓冲区地址
    DWORD nSize // 返回数据的缓冲区长度
    LPCTSTR lpFileName // ini 文件的文件名
    );

    这个 api 可以读出整个 section 的内容,当你不知道 section 中有哪些 key 的时候,可以使用这个 api 将整个 section 读出后再处理。


    GetPrivateProfileSectionNames - 从 ini 文件中获得 Section 的名称,它的原形是:

    GetPrivateProfileSectionNames(
    LPTSTR lpszReturnBuffer, // 返回数据的缓冲区地址
    DWORD nSize // 返回数据的缓冲区长度
    LPCTSTR lpFileName // ini 文件的文件名
    );

    如果 ini 中有两个 Section: [sec1] 和 [sec2],则返回的是 'sec1',0,'sec2',0,0 ,当你不知道 ini 中有哪些 section 的时候可以用这个 api 来获取名称


    WritePrivateProfileSection - 将一个整个 Section 的内容入 ini 文件的指定 Section 中,它的原形是:

    WritePrivateProfileSection(
    LPCTSTR lpAppName, // 指向包含 Section 名称的字符串地址
    LPCTSTR lpString // 要写入的数据的地址
    LPCTSTR lpFileName // ini 文件的文件名
    );


    WritePrivateProfileString - 将一个 Key 值写入 ini 文件的指定 Section 中,它的原形是:

    WritePrivateProfileString(
    LPCTSTR lpAppName, // 指向包含 Section 名称的字符串地址
    LPCTSTR lpKeyName, // 指向包含 Key 名称的字符串地址
    LPCTSTR lpString // 要写的字符串地址
    LPCTSTR lpFileName // ini 文件的文件名
    );

    如果 ini 中没有指定的 Section,API 会新建 Section,如果没有指定的 Key 则新建一个 Key 并写入数据,如果已经存在,则用字符串代替原来的值。当指定的 ini 也不存在的时候,API 会自动建立一个新的文件,所以使用 ini 的好处是我们不必为了保存少量的数据涉及到文件操作,就连查找文件是否存在的操作都不必要。

    使用要点:

    在我们实际使用的时候,用的最多的是 GetPrivateProfileString 和 WritePrivateProfileString,但在对自定义 ini 文件操作的时候要注意的是,如果 lpFileName 指定的文件没有路径的话,Api 会去 Windows 的安装目录去找而不会在当前目录找,但是每次用到 ini 函数要获取当前路径显然太麻烦了,这里有一个变通的办法,你只要在 ini 文件名前面加上 ./ 就可以了,比如说要对本目录下的 user.ini 操作,那么文件名就是 './user.ini' 这样显然比较方便。另外,当你要把一个 Key 清除的时候,可以使用把 lpString 指向一个空的字符串然后使用 WritePrivateProfileString。当你要把一个 section 的全部内容清空的时候,也不必把 key 一个个的清除,可以使用把 lpString 指向一个空的字符串然后使用 WritePrivateProfileSection。

     

     

     

     

    可以使用两个API实现配置文件的读写
    读:GetPrivateProfileString
    写:WritePrivateProfileString
     
    -----------------------------------------------------------
    1. 
    WritePrivateProfileString'ini 

    VB
    声明 
    Declare Function WritePrivateProfileString& Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As String, ByVal lpFileName As String) 

    说明 
    在初始化文件指定小节内设置一个字串 

    返回值 
    Long
    ,非零表示成功,零表示失败。会设置GetLastError 

    参数表 
    lpApplicationName String
    ,要在其中写入新字串的小节名称。这个字串不区分大小写 
    lpKeyName Any
    ,要设置的项名或条目名。这个字串不区分大小写。用vbNullString可删除这个小节的所有设置项 
    lpString String
    ,指定为这个项写入的字串值。用vbNullString表示删除这个项现有的字串 
    lpFileName String
    ,初始化文件的名字。如果没有指定完整路径名,则windows会在windows目录查找文件。如果文件没有找到,则函数会创建它 

    其他 
    vbapi文本查看器里复制的声明如下:
    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 

    -----------------------------------------------------------
    2. GetPrivateProfileString '
    ini

    VB
    声明 
    Declare Function GetPrivateProfileString& Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) 

    说明 
    为初始化文件中指定的条目取得字串 

    返回值 
    Long
    ,复制到lpReturnedString缓冲区的字节数量,其中不包括那些NULL中止字符。如lpReturnedString缓冲区不够大,不能容下全部信息,就返回nSize-1(若lpApplicationNamelpKeyNameNULL,则返回nSize-2 

    参数表 
    lpApplicationName String
    ,欲在其中查找条目的小节名称。这个字串不区分大小写。如设为vbNullString,就在lpReturnedString缓冲区内装载这个ini文件所有小节的列表 
    lpKeyName String
    ,欲获取的项名或条目名。这个字串不区分大小写。如设为vbNullString,就在lpReturnedString缓冲区内装载指定小节所有项的列表 
    lpDefault String
    ,指定的条目没有找到时返回的默认值。可设为空("" 
    lpReturnedString String
    ,指定一个字串缓冲区,长度至少为nSize 
    nSize Long
    ,指定装载到lpReturnedString缓冲区的最大字符数量 
    lpFileName String
    ,初始化文件的名字。如没有指定一个完整路径名,windows就在Windows目录中查找文件 

    注解 
    lpKeyName参数为vbNullString,那么lpReturnedString缓冲区会载入指定小节所有设置项的一个列表。每个项都用一个NULL字符分隔,最后一个项用两个NULL字符中止。也请参考GetPrivateProfileInt函数的注解

    其他 
    vbapi文本查看器中复制的声明为: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 

    ===================================================================
    举例如下:
    Option Explicit

    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 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 Sub Form_Load()

        '
    写配置文件
        WritePrivateProfileString "OK", "isOK", "True", "c:/vb-test.ini"
        WritePrivateProfileString "sushe", "mail", "xmsailor@sohu.com", "c:/vb-test.ini"
        
        ' 
    读配置文件如下
        Dim myweb As String
        myweb = String(255, 0)
        GetPrivateProfileString "sushe", "web", "
    没有配置web", myweb, 255, "c:/vb-test.ini"
        MsgBox myweb, vbOKOnly, "web"

    End Sub


    ----------------
    c:/vb-test.ini
    文件的内容如下

    [sushe]
    name=xmsailor
    comp=cvicse
    mail=xmsailor@sohu.com
    web=friends.sdu.edu.cn
    year=1999

    [OK]
    isOK=True
    isSucceed=True
     
     
     
     
     
     
    为了方便用户使用和使系统具有灵活性,大多数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中构造GetIniSGetIniN函数以及SetIniSSe-tIniN过程,在这些函数和过程中需要使用WindowsAPI"GetPrivateprofileString""GetPrivateProfileInt""WritePrivateProfileString"函数。

    RWINI.BAS
    模块的程序代码如下:

    General-Declearation部分中声明使用到的WindowsAPI函数:

    Declare Function GetprivateprofileString Lib"Ker-nel"(ByVallpAppName As String
    ByVallpKeyName As StringByVallpDefault As StringByVal lpRetrm-String As StringByVal cbReturnString As IntegerByVal Filename As String)As Integer
    Declare FunctionGetPrivatePfileInt Lib "Kernel"(ByVal lpAppName As String
    ByVal lpKeyName As StringByVal lpDefault As IntegerByVal Filename As String)As Integer
    Declare FuncitonWritePrivateprofileString Lib "Kernel"(ByVal lpApplicationName As String
    ByVal lpKeyName As StringByVal lpString As StringByVal lplFileName As String)As Integer
    Function GetIniS(ByVal SectionName As String
    ByVal KeyWord As StringByVal DefString As String)As String
    Dim ResultString As String * 144
    Temp As Integer
    Dims As String
    i As Integer
    Temp%=GetPrivateProfileString(SectionName
    KeyWord""ResultString144AppProfileName())
    检索关键词的值
    IfTemp%
    0Then‘关键词的值不为空
    s=""
    Fori=1To144
    IfAsc(Mid$(ResultString
    I1))=0Then
    ExitFor
    Else
    s=s&Mid$(ResultString
    I1)
    EndIf
    Next
    Else
    Temp%=WritePrivateProfilesString(sectionname
    KeyWordDefStringppProfileName())
    将缺省值写入INI文件
    s=DefString
    EndIf
    GetIniS=s
    EndFunction
    FunctionGetIniN(ByValSectionNameAsString
    ByValKeyWordAsStringByValDefValue
    AsIneger)AsInteger
    DimdAsLong
    sAsString
    d=DefValue
    GetIniN=GetPrivateProfileInt(SectionName

    KeyWord
    DefValueppProfileName())
    Ifd
    <>DefValueThen
    s=""&d
    d=WritePrivateProfileString(SectionName

    KeyWord
    sAppProfileName())
    EndIf
    EndFunction
    SubSetIniS(ByValSectionNameAsString
    BtVaKeyWordAsStringByValValStr
    AsString)
    Dimres%
    res%=WritePrivateprofileString(SectionName
    KeyWordValStrAppProfileName())
    EndSub
    SubSetIniN(ByValSectionNameAsString
    ByValKeyWordAsStringByValValInt
    AsInteger)
    Dimres%
    s$
    s$=Str$(ValInt)
    res%=WriteprivateProfileString(SectionName
    KeyWords$AppProfileName())
    EndSub

    SectionName
    为每一部分的标题,KeyWord为关键词,GetIniSGetIniN中的DefValue为关键词的缺省值,SetIniSSetIniNValStrValInt为要写入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
     
    展开全文
  • 如何VB制作DLL文件

    2012-05-08 21:52:42
    1.新建一个ActiveX Dll,工程名字为vbmytestdll,类模块名字为mytestdll 2.类模块内容只有一个函数,主要返回DLL的HELLO WORLD Public Function dlltest1() ...保存,生成DLL,名字为 vbmytestdll.dll 4.新建一个EXE...
    1.新建一个ActiveX Dll,工程名字为vbmytestdll,类模块名字为mytestdll 
    2.类模块内容只有一个函数,主要返回DLL的HELLO WORLD 
    Public Function dlltest1() As String 
    dlltest1 = "HELLO WORLD" 
    End Function 

    3.保存,生成DLL,名字为 

    vbmytestdll.dll 

    4.新建一个EXE工程,在菜单: 工程---引用---浏览里找到vbmytestdll.dll,把它引用进来 

    5.EXE工程代码如下: 

    Option Explicit 
    Dim testdll As mytestdll'类模块名字 

    Private Sub Form_Load() 
    Set testdll = New mytestdll 'DLL的一个新实例 
    Me.Caption = testdll.dlltest1 '我的标题=返回DLL的HELLO WORLD 
    End Sub 

    OK,编译成EXE即可看到效果. 




    VB相关

    vbline的用法[]

    画图工具的VB实现

    VB 一个获得自己外网 IP 地址的程序代码

    VB程序中实现IP地址子网掩码网关DNS的更改  []

    VB 中应用 FSO 对象模型介绍(摘自网络)

    [] VbFSO 对象的介绍

    VB 画坐标轴

    VB 二进制文件的操作

    [VB]BMPJPGVBKeyCode常数用法

    vb实时曲线的绘制和保存

    VB操作EXCEL

    vb初学回顾:最大公约数 最小公倍数 素数求取

    vb 关于窗口样式的API以及处理文本的API参考

    【引用】在VB6.0中实现弹出式菜单的几种方法

    【引用】URLDownloadToFile_VB下载文件!

    利用WinRar压缩和解压缩文件

    VB 剪切板

    VB实现指示窗口中拖动方框的程序

    VB绘制走动的表针

    如何用VB制作DLL文件

    【引用】VB修改IP地址

    VB多窗体退出代码

    []VB:如何检测到U盘的插拔(源代码)

    巧用SendMessage函数扩展Treeview功能

    vb中如何在任务管理器里面隐藏应用程序进程

    如何实现VBEXCEL的无缝连接

    一个API方式存取日志文件的模块[VB]

    VB用记录集填充表格函数

    VB打开文本文件各种方法

    vb ClipBoard 剪切板应用(复制剪切粘贴)

    【引用】窗口处理技巧大全 vb(窗体控件)

    【转】 Md rd命令之VB

    vb:读写文本文件

    vb中实现真正锁定的带自定义菜单的文本控件

    【引用】使用CommonDialogShowSave后如何判断是保存还是取消?

    vb 关于commondialog的多选VB获取Windows操作系统所有版本

    vb UTF文本文件访问

    VB编程中的Unicode vs Ansi

    VBPiView4注册机

    VB获取超过2G文件的大小

    CopyMemory还要快的函数SuperCopyMemory

    VB:编程效率快步提高之:十七种可用一行代码完成的技巧

    VB画出来的五星红旗

    Qt第一印象——QteQt  


    更多精彩>>>
    展开全文
  • 我意识到我可以告诉别人重命名这个文件,但是你知道,我知道这种情况永远不会是这样的,我会不断发送电子邮件,因为导入函数不起作用。我知道我使用的代码不是最好的,因为当按下按钮时查询被打开并且之后保持打开...

    Nearly finished with my first VBA project and its looking quite good and people seem impressed. However, I have one little problem that I am sure could easily be cleaned up. At the min I have a button that opens a query and then instantly opens it in excel (very similar to the ?analyse in excel? pre-set button).

    However, my problem is when the ''export'' to excel takes place the file automatically takes the name of the query e.g. ''qryMakeFSPAttainmentImportTable''. However, after they have finished updating the data in the excel spreadsheet it needs to be imported back in under the name ''FSP Attainment Import''. I realise I could just tell people to rename the file, but you know and I know this would never be the case and I would get constant email''s flying my way saying the import function doesn?t work. I know the code I have used isn?t the best as the query is opened when the button is pressed and stays open afterwards; this is a bit of a pain too. I have pasted my code below

    Expand|Select|Wrap|Line Numbers

    解决方案To rename a file from VBA use the Name statement.

    to close your query:

    Expand|Select|Wrap|Line Numbers

    thanks guys will give it a go and let you know!

    我的第一个VBA项目差不多完成,看起来很不错,让人印象深刻。但是,我有一个小问题,我确信可以轻松清理。最后我有一个打开查询的按钮,然后立即在excel中打开它(非常类似于excel中的?analyze?预设按钮)。

    但是,我的问题是当excel的''export''发生时,文件会自动获取查询的名称,例如"" qryMakeFSPAttainmentImportTable"。但是,在完成更新excel电子表格中的数据后,需要以"FSP Attainment Import"的名称将其导入。我意识到我可以告诉别人重命名这个文件,但是你知道,我知道这种情况永远不会是这样的,我会不断发送电子邮件,因为导入函数不起作用。我知道我使用的代码不是最好的,因为当按下按钮时查询被打开并且之后保持打开状态;这也有点痛苦。我已粘贴下面的代码

    展开 | 选择 | Wrap | < / span> 行号

    解决方案

    从VBA重命名文件名称声明。

    关闭您的查询:

    展开 | 选择 | Wrap | 行号

    谢谢大家好好放手一下让你知道!

    扫一扫关注IT屋

    微信公众号搜索 “ IT屋 ” ,选择关注

    与百万开发者在一起

    展开全文
  • 本代码结合vb讲述了如何在asp中上传图片文件,以及如何文件保存在数据库中
  • vb中的dsr文件如何创建?打开VB6,在工程列表里右单击鼠标,选择“添加”,在添加里单击“Data Report",然后保存一下工程就可看到.dsr文件了。也可以在VB6的”工程“菜单里添加”Data Report"简单介绍一下dsr 文件...
  • vb.net如何让程序只能打开三次后就不能打开了,不能用循环保存次数在一个文件
  • VB调用其他程序Shell函数的应用【功能】Shell函数可以调用(执行)磁盘上已保存的命令文件。所谓命令文件就是可执行文件。其扩展名必须是.COM、.EXE、.BAT。【格式】Shell(“命令文件名”[,窗体模式])【说明】1)、命令...
  • VB编程中,如果在安装VB软件时没有更改默认安装路径,默认的工程文件保存位置是VB安装目录下的/bin文件夹,一般都是在C盘中。而在实际编程开发中,我们并不想保存在系统设定的这一默认的目录中,而是想保存在其他...
  • 在CDR文档中又是如何将文档转换为CAD格式的呢?其实只要简单几步就能搞定,下面系统天地小编就来给大家分享cdr(CorelDRAW)文档...在弹出的"导出"界面中,鼠标单击"保存类型"的选项,选择文件类型为"DWG-AutoCAD"之...
  • 在一个应用程序中,对文件的处理是一个比较常用的操作,如打开文件、保存文件,等等。Visual Basic 提供了三个控件对磁盘文件夹与文件进行显示与操作,它们分别是:DriveListBox(磁盘列表框)控件、DirListBox...
  • 如何保存rtf文件到数据库中Visual Basic6.0时尚源程序,本人在网上整理而成,和大家一起分享VB6.0源代码
  • Open CommonDialog1.filename For Binary As #1DoEventshang = Split(Input(LOF(1), 1), vbCrLf) 'input(lof(1),1)是文件全部内容Close #1hangyuan = Split(hang(0), vbTab)ReDim yua...
  • 如何VB中使用OCX文件

    千次阅读 2011-06-09 23:55:00
    近来写的不少文件都是用到系统的ocx文件,但是发现很多xp的精简系统... 做法是,将第三方控件以自定义资源文件方式保存在程序中,程序运行之后使用控件之前将所用到的控件生成到该程序目录下,完成控件从可执行文件
  • 如何VB中加载OCX文件

    千次阅读 2008-08-04 13:25:00
    近来写的不少文件都是用到系统的ocx文件,但是发现很多xp的精简系统... 做法是,将第三方控件以自定义资源文件方式保存在程序中,程序运行之后使用控件之前将所用到的控件生成到该程序目录下,完成控件从可执行文件
  • 本人开发的文件管理系统,以前是把doc文件保存到数据库,下载、打开一切正常。最近把Office升级为2013,对管理系统代码进行了升级,所有文档均以docx格式保存到数据库,但是下载打开时,Word2013说文件已损坏。跪求...
  • 1.之前在csdn里下载了一个程序 !... 软件可以实现保存。 但是数据库视乎太旧,而且无法添加修改字段 于是我自己做了一个ACCESS文件,添加了字段, ...到这一步我就没有方向了如何操作,请哪位大神教教我
  • VB6里,可以用Timer控件进行定时执行点击动作,实现类似线程的功能。 以下代码在Win7 64位下测试可以实现。 在窗体上添加Timer1控件,设定Timer1.Interval 为 100 ‘-----------------------------------
  • getvbres修改资源后,好多人点击了保存资源更新资源之后没反应。 是的,这是原破解者的一个败笔,看似破解了,实际上没有破解。 下面是新的破解方法,导入如下注册文件即可。不要问为什么。 ------------------...
  • 本文主要解决保存文件时,如何检测该保存文件名对应文件打开时,提示文件已经打开或被其他进程占用。
  • vs2010 .vb如何生成类库(DLL)

    千次阅读 2016-02-24 11:36:47
    vs2010 vb如何生成类库(DLL) 1.打开VS2010,文件,新建项目-visual basic -windows-类库 .vb如何生成类库(DLL)" TITLE="vs2010 .vb如何生成类库(DLL)" /> 2.把已经调试编写好的类库拷贝到当前类文件中,保存...
  • 《Visual.Basic2008 step by Step》书中只提出了这三种方式如何打开文件和FileOpen函数保存文件,StreamReader类和My命名空间方式我也一同整理出来记在这里。 FileOpen函数打开和保存文件实例 Private Sub...
  • 我的程序里,窗体上有很多控件,有文本框,有下拉列表框,也有datagridview,控件里输入的数据想保存到一个文件里,尝试过用txt文件。但是感觉管理不方便。因为控件上的数据在窗体载入时需要从文件一一对应读出,...
  • 有个文件夹里面很多文件如何VB(VS2013)读取全部TXT格式文件,并把他们都变成UTF8保存为TXT格式? Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Dim ds1 As ...
  • 我知道调用外部 手动保存... 但是不知道如何在代码中实现自动保存到设定好的路径下面听说好象需要一个tlb文件 这是是么文件? 标准称呼怎么说 哪里能下载 如何安装呢我都找了半个月了 希望在这里遇到高手帮忙 急。。。

空空如也

空空如也

1 2 3 4 5 ... 14
收藏数 261
精华内容 104
关键字:

vb如何保存文件