精华内容
下载资源
问答
  • vb.net 实现结构体直接保存为文件 本身作为一个class。将其导入到vb工程,或者在vb.net中新建一个类并复制入代码,即可调用。
  • VB保存rtf文件到Access数据库中,将test.rtf文件写入到db1.mdb中,以个之见,VB代码使用RichTextBox载入RTF文档,然后再把文档内容存储在数据库中,分两步来进行了,并不是直接把RTF存储在Access中。 运行环境:VB6...
  • VB读取和修改保存ini的模块,内部引用了系统的API函数 可以直接修改,保存,读取ini文件
  • DC中的图像直接保存到BMP文件源代码

    热门讨论 2009-09-26 23:40:30
    DCToBitmapFile 任意类型的DC的指定区域保存成Bitmap文件(推荐使用) DCToBitmapFileEx 把Compatible DC保存成Bitmap文件 StretchBitmapFile直接压缩(或拉伸)一个Bitmap文件的尺寸到指定的Bitmap文件
  • VB代码生成PDF文件

    2012-10-20 09:28:05
    各种功能齐全,添加文本,图片,表格,报表等等
  • vb6对excel的操作,创建,写入,读取,保存,删除 源码。 每个功能都是一小块。 调试可用,仔细看吧,对操作excel的朋友一定有用。 正常操作不会有资源为释放,进程一大堆exe的情况。 个人整理,10分,不求下载多
  • VB生成PDF文档的例子,使用VB专用的PDF控件来实现,PDFPrinter.cls为控件代码,不使用其它额外的控件创建一个PDF文件,可自定义PDF字体,将字体存入FONT目录,然后在代码中设定。另外本程序生成的PDF文档是标准格式...
  • 摘要:VB源码,数据库应用,客房登记证,证件打印 腾龙宾馆客房登记证,客房登记证输入及证件打印模块的VB代码,这个程序的亮点我觉得是窗口界面的设计,尤其是登记表的设计,有个性,程序采用了Access数据库,输入完...
  • 摘要:VB源码,数据库应用,翻页 窗体版VB产品展示程序(源代码),支持翻页,采用Access数据库,产品图片信息用文件夹保存的,没有直接存入Access数据库中,简单来说,这应该是一个VB与Access的数据库程序,通过本...
  • 判断文字内容是否被改动的VB代码,当文字被修改后,退出程序时会要求保存文件,如果没有改动,则直接退出,其实这个功能大家几乎每天都会遇到,所以对于编程来说,应该掌握的小技巧,实用简单。
  • vb.net 直接生成pdf格式文件 实例源代码,采用iTextSharp 5.2 dll
  • VB抓图小精灵,在桌面区截图的时候,请按左上到右下的方向选择屏幕区域!活动窗口抓图的时候,请在2秒钟内选择好活动窗口!整个桌面抓屏则直接捕获整个桌面。所显示的缩略图会在视觉上失真,但不影响真实保存的图形...
  • 内容索引:VB源码,数据库应用,局域网,数据库 在局域网将文件直接上传到数据库中,方便大家下载,同时可以保存任何类型的文件,且写入和读取速度极快。主要是采用了ado中的stream技术。压缩包内一共有两个版本,一个...
  • C#中DataGridView修改后直接保存到数据库实例程序,绝对可用,内附源码,有注释 主要代码: //单元格编辑结束后触发 private void dataGridView1_CellEndEdit_1(object sender, DataGridViewCellEventArgs e) {...
  • 如果是一般的打开某个Excel文件修改后保存到原文件或者新的文件,在 Excel.Application.Quit() 前直接使用 Workbook.Save() 或 Workbook.SaveAs(文件名称) 就可以了。 但是对于要把数据(并非通过打开Excel文件获得...

    版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。

    如果是一般的打开某个Excel文件修改后保存到原文件或者新的文件,在 Excel.Application.Quit() 前直接使用
    Workbook.Save() 或 Workbook.SaveAs(文件名称) 就可以了。
    但是对于要把数据(并非通过打开Excel文件获得的数据)保存成Excel文件,那么可以按照以下步骤:
    1、新建了一个Application对象:
    Dim xls As New Excel.Application
    2、新建工作簿并添加到创建的Application对象:
            Dim Wbook As Excel.Workbook
            Wbook = xls.Workbooks.Add
    3、  使用原有的工作表,一般默认创建Wbook后会有sheet1、sheet2、sheet3三个工作表,可以使用上一节方法指定一个工作表写数据。
    或者新建工作表:
           Dim Wsheet As Excel.Worksheet
            Wsheet = Wbook.Worksheets.Add
    并按需要指定工作表名称,如不指定,那么新工作表默认名称为 Sheet4:
            Wsheet.Name = "电脑销售表"
    4、读取现有数据并写入单元格,需要注意的是Excel单元格的起始序号为1,而一般vb.net中数组等的起始序号为0:
            Wsheet.Cells(i行号,列号).value = "值"
    5、保存工作簿
           Workbook.SaveAs(文件名称)
    6、最后,别忘了关闭打开的 Excel:
           Excel.Application.Quit()
    具体代码如下:

        '另存为
        Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            Dim filename As String
            Dim sfd As New SaveFileDialog()
            sfd.Filter = "表格文件|*.xls;*.xlsx"
            If sfd.ShowDialog <> DialogResult.OK Then
                Exit Sub
            Else
                filename = sfd.FileName
            End If
    
            Dim xls As New Excel.Application
            Dim Wbook As Excel.Workbook
            Wbook = xls.Workbooks.Add
    
            Dim Wsheet As Excel.Worksheet
            Wsheet = Wbook.Worksheets.Add
            Wsheet.Name = "电脑销售表"
    
            If lvExcel.Columns.Count > 1 Then
                For i As Integer = 0 To lvExcel.Columns.Count - 1
                    Wsheet.Cells(1, i + 1).value = lvExcel.Columns(i).Text
                Next
            End If
    
            If lvExcel.Items.Count > 0 Then
                For i As Integer = 0 To lvExcel.Items.Count - 1
                    Dim pos As Integer = 0
                    For Each subLvText As ListViewItem.ListViewSubItem In lvExcel.Items(i).SubItems
                        pos += 1
                        If subLvText.Text = "(空)" Then
                            Wsheet.Cells(i + 2, pos).value = ""     '+2是因为excel表格第一行从1开始,而表头已经占了第一行,所以写入的数据从第2行开始。
                        Else
                            Wsheet.Cells(i + 2, pos).value = subLvText.Text
                        End If
                    Next
                Next
            End If
    
            Wbook.SaveAs(filename)
            xls.Quit()
    
            MessageBox.Show("保存完毕")
        End Sub

    保存的Excel文件如图:

     

    由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。

    学习更多vb.net知识,请参看 vb.net 教程 目录

    展开全文
  • 最值得一提的是结合VB的界面直观显示实时窗体信息,既克服了VB不能直接调用按键精灵dll等插件命令的问题,也克服了按键精灵界面只能读取输入不能实时界面输出显示的缺陷,实现了VB强大界面功能与按键精灵经典DLL插件...
  • 免费VB打印控件(带源代码及示例)

    热门讨论 2010-04-05 20:10:32
    本控件系VB6.0编写,有控件的原代码,可以直接打印MSHFlexGrid控件(如果控件的数据中有图片,图片也会打印出来)的内容,省时省力,并提供多种打印方式,如多栏打印、分页打印、自动缩放打印、工资条样式打印等功能...
  • VB/C#.Net实体代码生成工具(EntitysCodeGenerate)【ECG】是一款专门为VB/C#.Net数据库程序开发量身定做的(ORM框架)代码生成工具,所生成的代码基于OO、ADO.NET、分层架构、ORM,改进的抽象工厂设计模式及反射机制...
  • 很多时候复制了一段文字、代码、图片都想要将它们保存成文件,但每次都要重复做一遍操作,以文本为例:「复制→新建文本文档→打开文本→粘贴→保存」,甚是烦人。 在你复制了文本、HTML、代码、富文本、图片等内容...
  • VB/C#.Net实体代码生成工具(EntitysCodeGenerate)【ECG】是一款专门为VB/C#.Net数据库程序开发量身定做的(ORM框架)代码生成工具,所生成的代码基于OO、ADO.NET、分层架构、ORM,改进的抽象工厂设计模式及反射机制...
  • vb webbrowser 保存网页源码的各种…

    千次阅读 2016-02-24 11:22:10
    我在网上找到使用rft控件保存webbrowse文本  txtHtml是RichTextBox txtHTML.Text = WebBrowser1.document.body.innerText ´flag :rsftext 保存为txt文件,strtmp文件路径 txtHTML.saveFile strtmp, rtfText 将其...

    我在网上找到使用rft控件保存webbrowse文本  txtHtml是RichTextBox
    txtHTML.Text = WebBrowser1.document.body.innerText
    ´flag :rsftext 保存为txt文件,strtmp文件路径
    txtHTML.saveFile strtmp, rtfText


    将其name属性设置为web

     

    Private Sub Command1_Click()
        web.Navigate ""
    End Sub

    Private Sub web_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Set doc = web.Document
    For Each i In doc.All
        msgbox typename(i)
        Text1.Text = Text1.text & vbclrf & i.innertext
    Next
    End sub


    ===========================================================================================
    转载

    ´引用 Microsoft HTML Object Library


        Dim oDoc As HTMLDocument
        Dim oElement As Object
        Dim oTxtRgn As Object
        Dim sSelectedText As String
       
        Set oDoc = WebBrowser1.Document´获得文档对象
        Set oElement = oDoc.getElementById("T1")´获得ID="T1"的对象
        Set oTxtRgn = oDoc.selection.createRange´获得文档当前正选择的区域对象
      
        sSelectedText = oTxtRgn.Text´选择区域文本赋值

     

        oElement.Focus´"T1"对象获得焦点

        oElement.Select´全选对象"T1"

        Debug.Print "你选择了文本:" & sSelectedText


    上面这段儿还附送了其他功能,呵呵。精简一下是这样:
        Dim oDoc As Object
        Dim oTxtRgn As Object
        Dim sSelectedHTML As String
       
        Set oDoc = WebBrowser1.Document ´获得文档对象
        Set oTxtRgn = oDoc.selection.createRange ´获得文档当前正选择的区域对象
      
        sSelectedHTML = oTxtRgn.htmlText ´选择区域文本赋值


        Text1.Text=sSelectedHTML ´文本框显示抓取得HTML源码
        ......´或者继续分析源码


    ==================================================================================================

    我用WebBrowser取得网页源码,直接运行正常,但在编译后出错
    Private Sub Command1_Click()
    WebBrowser1.Navigate ""
    End Sub

     

    Private Sub WebBrowser1_DownloadComplete()
    ´页面下载完毕
    Dim doc, objhtml
    Set doc = WebBrowser1.Document

    Set objhtml = doc.body.createtextrange()
    If Not IsNull(objhtml) Then
    Text1.Text = objhtml.htmltext
    End If


    End Sub

     

    我用WebBrowser取得网页源码,直接运行正常,但在编译后出错


    提示:实时错误“91”    Object 变量或 with 块变量没有设置
    可能是没有下载完所致,

    Private Sub WebBrowser1_DownloadComplete()
    if webbrowser.busy=false then
    Dim doc, objhtml
    Set doc = WebBrowser1.Document


    Set objhtml = doc.body.createtextrange()
    If Not IsNull(objhtml) Then
    Text1.Text = objhtml.htmltext
    End If
    end if
    End Sub

    你要得网页源码用 xmlhttp比较好


    先引用 msxml

    Dim x As New MSXML2.XMLHTTP
     x.open "get", "", False
     x.send

    MsgBox StrConv(x.responseBody, vbUnicode)

     

     

     

    ===============================================================================================
    我在网上找到使用rft控件保存webbrowse文本  txtHtml是RichTextBox
    txtHTML.Text = WebBrowser1.document.body.innerText
    ´flag :rsftext 保存为txt文件,strtmp文件路径
    txtHTML.saveFile strtmp, rtfText


    =====================================================================================


    Private Sub WebBrowser1_DownloadComplete()
        Dim objHtml As Object
        ´下载完成时状态栏显示“Link Finished”
        Set objHtml = Me.WebBrowser1.Document.Body.Createtextrange()
        If Not IsNull(objHtml) Then
            Text1.Text = objHtml.htmltext
        End If
    End Sub
    使用inet控件
    Source1 = Inet1.OpenURL("")
    If Source1 <> "" Then
    RichTextBox1.Text = Source1
    Me.Inet1.Cancel
    Else
    Source = MsgBox("Source code is not available.", vbInformation, "Source Code")
    End If

    Private Sub Command1_Click()
        Text1.Text = WebBrowser1.Document.body.innerHTML
    End Sub


    ==================================================================================
    加入timer,commandbutton,text
    private sub command1_click()
    webbrowser1.navigate
    timer1.enabled=true
    end sub


    private sub timer1_timer()
    dim doc,objhtml as object
    dim i as integer
    dim strhtml as string

    if not webbrowser1.busy then
    set doc=webbrowser1.document
    i=0
    set objhtml=doc.body.createtextrange()
    if not isnull(objhtml) then
    text1.text=objhtml.htmltext
    end if
    timer1.enabled=false
    end if
    end sub

     


    Dim doc, objhtml As Object
    If Not webbrowser1.Busy Then
             Set doc = webbrowser1.Document
             Set objhtml = doc.body.createtextrange()
             If Not IsNull(objhtml) Then
                text1.text=objhtml.htmltext
             End If
             Set doc = Nothing
             Set objhtml = Nothing

    End If

    ===================================================================================================
    或者试试用InternetReadFile,效果也可以:
    Option Explicit

     

    Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" ( _
                        ByVal sAgent As String, ByVal lAclearcase/" target="_blank" >ccessType As Long, _
                        ByVal sProxyName As String, ByVal sProxyBypass As String, _
                        ByVal lFlags As Long) As Long
    Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" ( _
                        ByVal hInternetSession As Long, ByVal sUrl As String, _

     

                        ByVal sHeaders As String, ByVal lHeadersLength As Long, _
                        ByVal lFlags As Long, ByVal lContext As Long) As Long
    Private Declare Function InternetReadFile Lib "wininet.dll" ( _
                        ByVal hFile As Long, ByVal sBuffer As String, _
                        ByVal lNumBytesToRead As Long, _
                        lNumberOfBytesRead As Long) As Integer
    Private Declare Function InternetCloseHandle Lib "wininet.dll" ( _
                        ByVal hInet As Long) As Integer

    Private Const INTERNET_FLAG_NO_CACHE_WRITE = &H4000000
    Dim s

     

    Private Function GetUrlFile(stUrl As String) As String
        Dim lgInternet As Long, lgSession As Long
        Dim stBuf As String * 1024
        Dim inRes As Integer
        Dim lgRet As Long
        Dim stTotal As String
        stTotal = vbNullString
        lgSession = InternetOpen("VBTagEdit", 1, vbNullString, vbNullString, 0)
        If lgSession Then
            lgInternet = InternetOpenUrl(lgSession, stUrl, vbNullString, _
                                         0, INTERNET_FLAG_NO_CACHE_WRITE, 0)
            If lgInternet Then
                Do

     

                    inRes = InternetReadFile(lgInternet, stBuf, 1024, lgRet)
                    stTotal = stTotal & Mid$(stBuf, 1, lgRet)
                Loop While (lgRet <> 0)
            End If
            inRes = InternetCloseHandle(lgInternet)
        End If
        GetUrlFile = stTotal
    End Function


    Private Sub Command1_Click()
        Text1.Text = GetUrlFile("")
    End Sub

    =====================================================================================================

     

    Set vDoc = WebBrowser1.Document
    ´获取网页的源码
    For Each o In vDoc.All
       DoEvents
       htmlpage = htmlpage & o.innerHTML
    Next
    然后用写二进制文件的方法将htmlpage的内容写入到.html文件中如果这个网页中含有框架那么要对框加进行处理。

    展开全文
  • VB.NET实现AES加密解密

    2017-08-22 17:49:27
    VB.NET实现AES加密解密代码,可直接使用
  • VB/C#.Net实体代码生成工具(EntitysCodeGenerate)【ECG】是一款专门为VB/C#.Net数据库程序开发量身定做的(ORM框架)代码生成工具,所生成的代码基于OO、ADO.NET、分层架构、ORM,改进的抽象工厂设计模式及反射机制...
  • 内容索引:VB源码,图形处理,图像转换 Vb利用内部机制实现图像格式转换,将JPG/GIF/BMP/pcx/ico等多种图像格式最终转换为BMP文件,转换过程主要表现在文件保存上,将其它格式文件直接保存了BMP,相当于转换格式。
  • 博客已经搬家到“捕获完成”: https://www.v2python.com 下载地址: ...依次安装,运行vb控件即可 ... 这是一个VB6的ADDIN(外接程序),用于使用VB6开发工具直接拖放控件,直接可视化完成Python的TKint...

    博客已经搬家到“捕获完成”:

    https://www.v2python.com

     

     

     

    下载地址:

    http://pan.baidu.com/s/1kVLOrIn#list/path=%2F

    依次安装,运行vb控件即可

     

     

     

    复制代码

    0.简介
        这是一个VB6的ADDIN(外接程序),用于使用VB6开发工具直接拖放控件,直接可视化完成Python的TKinter的GUI布局和设计,可以在VB界面上设置
        控件的一些属性,最终自动生成必要的代码(包括回调函数框架),代码生成后仅需要在对应的回调函数中增加相应的逻辑功能代码即可。
        这个工具支持绝大部分TKiner控件,可应付一般GUI的需求。(列表参见下面的控件说明)。
    
    1.适用对象
        适用于学习了TKinter并不想太麻烦写GUI代码,也不想用其他工具和框架,比如wxPython,PyQt4的同学。
        适用于界面不太复杂的小程序开发,界面复杂的还是适用wxPython等框架吧。因为TKinter为Python标准库,使用TKinter完成的Python程序可以称为
        “绿色软件”,不需要目标机器上安装wxPython,PyQt4等框架,只要有Python的机器就能运行。
      如果软件逻辑不是很复杂,通常一个*.py搞定,不像其他框架,需要几个文件。
        
    2.使用方法简介
      2.1 首先注册此插件,可以使用自带的安装程序,或自己手动完成。
      2.2 打开VB6,新建一个标准EXE工程,在窗体上设计自己的GUI布局,这个工作估计没有VB基础的同学都可以完成,同时可以设置相应的控件属性。
      2.3 如果使用自带安装程序安装了插件,现在VB的工具条上应该有一个新图标(一片橙红色羽毛),如果没有,到菜单"外接程序"|"外接程序管理器"里面启动Visual Tkinter,Visual Tkinter图标和菜单应该会出现。
      2.4 启动Visual Tkinter后,先按“刷新窗体列表”按钮,列出当前工程的所有窗体和控件列表。
      2.5 逐个确认各控件的输出属性,在要输出的选项前打钩,如果必要,可以在属性列表中双击修改属性的值。(一般情况不需要再修改控件属性) VisualTkinter尽量的将VB控件属性翻译成Tkinter控件属性,比如字体、颜色初始值、外观、状态等,甚至包括按钮类和菜单的快捷键设置等待。当然了,如果部分属性没有对应关系的,需要在VisualTkinter界面上设置。
      2.6 按“生成代码”按钮则在代码预览窗口生成代码,可以双击代码预览窗口放大阅读,也可以直接修改代码。
      2.7 确认完成后可以将代码拷贝到剪贴板或保持到文件。布局可以使用百分比定位(相对定位)或绝对坐标定位(按像素定位),百分比定位为有一个好处,主界面大小变化后,控件也可以相对变化大小。如果不希望主界面大小变化后控件跟随变化,可以选择绝对坐标定位。
        注:如果修改了以前设计的界面,可以选择仅输出main函数或界面生成类。不影响外部已经实现的逻辑代码。
      2.8 如果程序有多个GUI界面,可以在VB工程中添加窗体,就可以选择产生哪个窗体的对应代码。
      2.9 针对结构化代码,如果要在Python代码中引用和修改其他控件的值,可以使用全局字典gComps,这个字典保存了所有的GUI元素和一些对应的控件变量,可以直接使用形如gComps["Text1Var"].set("new Text")的代码来访问对应控件。如果输出的是面向对象代码,则可以在界面派生类Application中直接访问对应的控件。
      2.10 一般的GUI框架都会将UI部分和逻辑代码部分分别放在不同的文件中,在逻辑代码文件中导入UI文件,实现修改UI不影响逻辑代码。因为对于实现简单的程序来说,我偏爱单文件,所以我将UI类和逻辑代码类都放在同一个文件中,在修改界面后,你可以直接覆盖对应的Application_ui类即可实现界面的变更,不过如果增加了新的事件回调函数,需要在子类Application中增加才行。
    
    3.目前支持的控件列表
      3.1 Label
        标签条在VB和Python中基本一样。如果不启用ttk,则在文本中插入\n来换行,
        如果启用了ttk,则只支持单行文本(多行可以使用Message控件实现)。
      3.2 TextBox
        Python文本框有两种:Entry和Text,如果VB的TextBox的MultiLine=False,则
        生成Entry,否则生成Text。
      3.3 Frame
        对应Python的LabelFrame控件,做为其他控件的容器,或做为界面元素视觉分类。
      3.4 CommandButton
        对应Python的Button,没有太多区别。
        为了代码简洁,窗体的退出按钮可以设置Cancel属性为True,然后程序自动生成
        对应Tkinter的destroy回调,这样就不需要再实现一个回调函数。
        在VB里面字母前增加一个"&"符号可以直接绑定一个快捷键Alt+对应字母,
        VisualTkinter也支持此设置,自动生成对应的事件绑定代码。
        其他控件比如Checkbox等有"标题"属性的控件一样如此处理。
      3.5 CheckBox
        多选按钮对应Python的Checkbutton。
      3.6 OptionButton
        单选按钮对应Python的Radiobutton。
      3.7 ComboBox
        组合框在Tkinter中没有对应的控件,比较类似的只有OptionMenu,类似ComboBox
        的Style=2 (Dropdown List)时的表现,一个下拉列表,只能在列表中选择一个值,
        不能直接输入。所以建议在VB的ComboBox中写下所有的下拉列表值。
        如果启用了TTK主题扩展库支持,则直接对应到TTK的Combobox,外形和行为基本
        一致。
      3.8 ListBox
        列表框对应Python的Listbox,行为也类似,可以在设计阶段设置初始列表。
        如果需要滚动,则在适当位置创建滚动条,然后在Addin界面选择其xscrollcommand
        和yscrollcommand属性为对应滚动条的.set方法。
      3.9 HScrollBar, VScrollBar
        滚动条在Python中为Scrollbar,通过设置orient来控制水平还是垂直。
      3.10 Slider
        类似对应Python中的Scale。
      3.11 PictureBox
        简单对应到Python中的Canvas,用做其他控件的容器或画图容器使用。
        如果需要滚动,则在适当位置创建滚动条,然后在Addin界面选择其xscrollcommand和
        yscrollcommand属性为对应滚动条的.set方法。
      3.12 Menu
        可以使用VB的菜单编辑器来设计Python的菜单。
        在VB中的菜单标题为"-"是分隔条。
        也可以在正常的菜单标题中增加(&+字母)的方式添加快捷键。
      3.13 Line
        可以用于组织复杂界面,仅支持水平或垂直线。
      ===================================================
      以下的控件需要在VB的'控件工具箱'中按右键添加'部件',选择
      'Microsoft Windows Common Controls 6.0'
      ====================================================
      3.14 ProgressBar
        对应到Python的Progressbar,需要启用TTK主题扩展(默认)
      3.15 TreeView
        对应到Python的Treeview,树形显示控件,可以选择是否显示标题行,
        需要启用TTK主题扩展(默认)
        如果需要滚动,则在适当位置创建滚动条,然后在Addin界面选择其xscrollcommand
        和yscrollcommand属性为对应滚动条的.set方法。
      3.16 TabStrip
        选项卡控件,对应到Python的Notebook,需要启用TTK主题扩展(默认)。
        如果要布局各个页面内的控件,按以下步骤:
        1.每个选项页对应一个Frame或PictureBox,命名为:TabStrip的名字
        加'__Tab'(双下划线),再加一个序号,从1开始,比如TabStrip的名字为TabStrip1,
        则你可以创建一个PictureBox,命名为'TabStrip1__Tab1'(注意大小写)。
        2.然后在PictureBox/Frame内摆放你需要的其他控件,生成代码后此容器内自动添加
        到对应的选项页,VisualTkinter会在后台为您做这一切。
        标签页对应的PictureBox/Frame可以放置在窗体的可视范围外,也就是说设计好
        对应的选项页后,缩小IDE中的窗体为你需要的大小。
        注意:
        1. 你需要使用相对坐标,PictureBox或Frame容器的大小请和TabStrip内部大小一致或
        接近,否则选项页内的控件将会通过拉伸或收缩来适配可伸缩来适配可用空间,这样有些
        控件看起来会比较怪。如果使用绝对坐标,则PictureBox/Frame可以不用和TabStrip
        一样大,PictureBox/Frame内的控件将以TabStrip的左上角为原点放置,大小和长宽比例
        会和设计时一致。
        所以还是建议如果有TabStrip控件的话,使用绝对坐标。
        2. Frame和PictureBox均可作为容器,如果使用Frame作为容器,则其标题可以作为选项页
        标题,如果你没有设置选项页标题的话。(选项卡控件的标题设置优先)
      -----------------------------------------------------
      3.17 CommonDialog
        这个控件也算支持,如果VB窗体中有这个控件,则在Python代码中导入
        filedialog、simpledialog、colorchooser这三个模块,这三个模块提供简单的
        文件选择、输入框、颜色选择对话框功能。
        需要在控件工具箱增加"Microsoft Common Dialog Control 6.0"
    
    4. 其他建议
      1. 不支持使用控件数组,界面可以显示,但是后面的同名控件名会覆盖前面定义的。
      2. 窗体的ScaleMode建议保持默认值(vbTwips),如果要设置为其他值,则Frame控件
         内就不要再放Frame控件了,否则其内部的控件布局错误。
      3. 如果仅需要简体汉字界面,则可以删掉Language.lng文件,仅需VisualTkinter.dll
         一个文件。
    
    5. ttk库额外说明
      ttk主题扩展看起来很漂亮,在不同操作系统下界面呈现为本地化风格,建议使用,
      只是要注意以下几个ttk的BUG:
      1. TTK的Entry和Combobox控件背景色设置无效(可以设置,不报错,但是界面不变)。
      2. TTK的Label中的文本不能换行,但是tkinter的Label控件可以通过插入'\n'来换行。
      3. LabelFrame和Notebook控件的字体设置无效。
      4. Python 2.7.3附带的ttk中的Treeview字体设置无效,但3.2.3的Treeview的字体
         设置有效。
    
    

    复制代码

     

     

     

    参考:

    https://www.cnblogs.com/darkspr/p/6077573.html

    展开全文
  • VB6.0 读写excel表格/dat文件并保存

    千次阅读 2017-05-03 10:18:30
    VB6.0 读写excel表格/dat文件并保存最近偶尔写了点VB - - 1.Excel读写GlobalLists: Dim xlsApp As Object Dim xlsWB1 As Object Dim xlsWS1 As ObjectForm:Private Sub writeDataToExcel() Set xlsApp = ...

    VB6.0 读写excel表格/dat文件并保存

    最近偶尔写了点VB - -

    1.Excel读写

    GlobalLists:

     Dim xlsApp As Object
     Dim xlsWB1 As Object
     Dim xlsWS1 As Object

    Form:

    Private Sub writeDataToExcel()
      Set xlsApp = CreateObject("Excel.Application")
      xlsApp.Visible = False ' 可视化
      Set xlsWB1 =   xlsApp.Workbooks.Open("F:\VB98\inputData\inputData1.xlsx") ' 修改为需要的文件路径-----------------------
     Set xlsWS1 = xlsWB1.WorkSheets("Sheet1")
     '写入(读取反过来即可)
     xlsWS1.cells(excel_row + 5, excel_col + 5) = "  (●.●)"
     xlsApp.DisplayAlerts = False ' 不显示警告
     xlsWB1.Close True '保存数据
     xlsApp.quit
     Set xlsApp = Nothing
     Set xlsWB1 = Nothing
     Set xlsWS1 = Nothing
    
    End Sub

    2.dat文件读写

    Private Sub ReadDataFromDatFile()
    Dim strBuff As String
    Dim fileLength
    Dim count As Integer
    ' 给出一个从.dat文件中读取前16个数字的例子,其中的数字按需修改--------------------------------------
    ' 如果需要写入数据,只需要file.write
    count = 0
    Open "F:\VB98\inputData\inputData2.dat" For Input As #1
    Do Until EOF(1)
    Input #1, num1
    If count = 0 Then
    
    ElseIf count <= 4 Then
        Text1(count - 1).Text = num1
    ElseIf count <= 8 Then
        Text2(count - 5).Text = num1
    ElseIf count <= 12 Then
        Text3(count - 9).Text = num1
    Else
        Text4(count - 13).Text = num1
    End If
    '  Print num1;
    count = count + 1
    Loop
    Close #1
    If ifOption1Click = 1 Then
    res = record()
    End If
    End Sub
    展开全文
  • VB 代码读取 Excel 内容

    万次阅读 2017-05-25 11:16:20
    常规的方法可能是循环读取每一行每一个格子的内容并存入 Recordset 并保存 此处使用Open Recordset 的方式,将 Excel Worksheet 作为一个数据源直接读取 速度将是数理级的差别,几万笔记录的情况下,将由几十秒...
  • VB读取TXT文件内容.rar

    2019-07-10 19:43:54
    VB读取TXT文件内容,读取文件的一个例子,将一段文字保存在“vb100例.txt”中,程序运行后,通过点击“读取文本”按钮,可直接读取出TXT文件中的内容。
  • vb6读写json格式文件,这里是源码,可以直接拿来使用。

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 30,924
精华内容 12,369
关键字:

vb直接保存的代码