精华内容
下载资源
问答
  • vbframe控件中每一个combo作为一个变量,每个frame从文件读取一行怎么实现?怎么读取一行并且作为frame显示?
  • 它可以加载图片、显示文字、画图外,它还能与Frame对象一样,在自己本身里头加载其它的对象而自成一个小群组,用PictureBox可以仿真出任何对象的外观,PictureBox是VB基本控件里变化最多,功能最多,也是令人最想去...
    PictureBox对象可以说是任何对象的原始型态,它可以加载图片、显示文字、画图外,它还能与Frame对象一样,在自己本身里头加载其它的对象而自成一个小群组,用PictureBox可以仿真出任何对象的外观,PictureBoxVB基本控件里变化最多,功能最多,也是令人最想去征服它的一个物件。

     

    PictureBoxFrame对象一样,本身都能装载其它的对象而自己形成一个对象群组。

     

    ●如果要拿PictureBox装载对象时,可以把它视为Frame来使用。

     

    ●与Image对象一样在设计阶段时,以Picture属性来加载图片。

     

    ●与Image对象一样都是在属性对话窗口按一下〝...〞钮后,跳出〝加载图片〞对话框,选择所要的图档,然后加载。

     

    ●在执行阶段,可以用VB的函数来帮PictureBox加载图片:

    Command1_Click()

    Picture1.Picture = LoadPicture("E:\MyGif\AniGif0562.gif")

    End Sub

     

    在设计阶段,若后悔加载图片,想把它消除时,可以把PictureBoxDelete键删掉,然后从工具箱拖曳一个新的PictureBox,或是在属性对话框里的Picture属性,把〝(位图)〞这几个反白,或是移到〝(〞的最前端,按一下键盘的Delete键即可移除图片。

     

    ●若在执行阶段,想把PictureBox内的图片移除,可再用LoadPicture函数,并且传空字符串给它:

    Private Sub Command1_Click()

    Picture1.Picture = LoadPicture("")

    End Sub

    --------------------------------------------------------------------------------

     

    PictureBox里画图:

     

    PSet方法PSet不只是用在PictureBox上,也可以用在窗体上,PSet最主要功用用就是在某一点位置上画一个点,用法是Object.PSet(X,Y), Color Private Sub Command1_Click()

    Picture1.PSet(500,260),RGB(128,0,255)

    'RGB函数是以红色、绿色、蓝色来表示颜色,详情请到函数指令参考

    End Sub

    若颜色省略,则以PictureBox预设的颜色。

     

    ●前面有学到随机数的运用,因此我们来做个范例看看,范例─满天繁星:

    Private Sub Timer1()_Timer

    Randomize

    X = Int(Rnd * Picture1.ScaleWidth)

    Y = Int(Rnd * Picture1.ScaleHeight)

    R = Int(Rnd * 256)

    G = Int(Rnd * 256)

    B = Int(Rnd * 256)

    Picture1.PSet (X, Y), RGB(R, G, B)

    End Sub

     

    ●Line方法Line方法专门用来画直线的工具,在窗体上也可以使用,用法:Object.Line(X1,Y2)-(X2,Y2), Color, BF

    ColorLine里与PSet一样是可以被省略的,在Color后方,若是加入B则画出的不是线条,而是一个空心矩形,若是BF,则画出来的是实心矩形。

    Private Sub Command1_Click()

    Picture1.Line(50,50)-(500,750)

    End Sub

    Private Sub Command1_Click()

    Picture1.Line(50,50)-(500,750), ,B

    End Sub

    Private Sub Command1_Click()

    Picture1.Line(50,50)-(500,750), ,BF

    End Sub

    ●Circle方法Circlr方法专门用来画圆,窗体上也是可以使用,用法:Object.Circle(X,Y), R, Color, 起始角度, 终止角度, 椭圆率

    Private Sub Command1_Click()

    Picture1.Circle(1000, 1000), 800

    End Sub

    Private Sub Command1_Click()

    Const PI = 3.1415926535

    Picture1.Circle (1000, 1000), 800, , PI / 4, 3 * PI / 4

    End Sub

     

    若是设定起始角度与终止角度,画出来的圆会变成弧,而角度单位使用的是弧度,也就是说,180=3.1415926535...对于没有学过弧度的网友来说,可能是难了点。

    Private Sub Command1_Click()

    Const PI = 3.1415926535

    Picture1.Circle (1000, 1000), 800, , -PI / 4, -3 * PI / 4

    End Sub

     

    若是起始角或终止角使用负数,它们还由由圆心画直线到起始角或终止角,这样就可以画出扇形。

    Private Sub Command1_Click()

    Picture1.Circle (1000, 1000), 800, , , , 0.75

    End Sub

     

    椭圆率则是圆的Y轴与X轴的比值,也就是 Y/X ,可以画出椭圆形。

     

    ●范例:在PictureBox里,拖曳产生一个圆

    (一般)

    Dim Dx As Single, Dy As Single

    Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Button = 1 Then

    Dx = X

    Dy = Y

    End If

    End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Button = 1 Then

    Picture1.Cls

    Picture1.Line (Dx, Dy)-(X, Y)

    Picture1.Circle (Dx, Dy), (((Dx - X) ^ 2 + (Dy - Y) ^ 2) ^ 0.5)

    End If

    End Sub Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Button = 1 Then

    Picture1.Cls

    Picture1.AutoRedraw = True

    Picture1.Circle (Dx, Dy), (((Dx - X) ^ 2 + (Dy - Y) ^ 2) ^ 0.5)

    Picture1.AutoRedraw = False

    End If

    End Sub

     

    ●Cls方法Cls方法,就是清除屏幕上对象所在范围的内容,窗体也适用,若已存在内存里的内容,则无法消除,用法:Object.Cls,范例在上面的画圆范例里。

     

    Point方法Point就是读取PictureBox某一点上的颜色数值,传回值是长整数型态,在窗体上也适用,用法:传回值 = Object.Point

    Private Sub Picture1 AutoRedraw属性:上面的PSetLineCircleVB所提供的,画图在屏幕上的方法,因此只要对象移出屏幕外,或是对象被其它窗口或对象给盖着,刚才所画的图会不件,若在绘图时,把AutoRedraw设为True,则可把图绘入内存,即使用Cls方法也清除不掉,范例在上面的画圆范例里头。

     

    ●想要把用VB函数在PictureBox里所画的图给存起来时(AutoRedraw设为True时所绘的图才能存盘)VB提供了SavePicture方法,用法是SavePicture Object.Picture, 檔名。

    Private Sub Command1_Click()

    SavePicture Picture1.Picture, "C:\Windows\Temp\Tmp.Bmp"

    End Sub

     

    ●SavePicture只能存BMP格式的档按,请别异想天开把扩展名改成JPGGIF,存起来的图仍是BMP格式的图。

     

    PaintPicture方法PaintPicture方法,可以把某个物计内的图转贴到另一个物件上,但要有一个前题,这个图是用Picture属性加载进来的图才可以,用法Object.PaintPicture 来源对象.Picture, Object.X, Object.Y, 图在Object上的宽度, 图在Object上的高度, 来源对象X起始位置, 来源对象起始Y位置, 来源对象上的宽度, 来源对象上的高度, 贴图模式

    Private Sub Command1_Click()

    Picture1.PaintPicture Picture2.Picture, 0, 0

    '原尺寸转印

    End Sub

     

    若是改变了图在Object上的宽与高,可以改变图形的缩放 Private Sub Command1_Click()

    Picture1.PaintPicture Picture2.Picture, 0, 0, 750, 600

    End Sub

     

    ●Picture2内的图被放大转贴到Picture1里。

     

    ●至于贴图模式,留在其单元里的特殊功能里讨论

     

    Print方法Print可以在PictureBox上打印文字,窗体也适用,用法:Object.Print 资料。

    Private Sub Command1_Click()

    MyLng = 1234567

    Picture1.Print "今天天气真好"

    Picture1.Print "MyLng = " & MyLng

    End Sub

     

    ●CurrentXCurrentY属性,设定或传回目前PictureBox上画笔所在的位置,窗体也适用。

    Private Sub Command1_Click()

    Picture1.CurrentX = 500

    Picture1.CurrentY = 350

    Picture1.Print "今天天气真好"

    End Sub

    转载于:https://www.cnblogs.com/rosesmall/p/5048705.html

    展开全文
  • 程序要求:设计一个运行界面如上图所示,当用户在“操作选项”框架选定操作后,文本框发生相应的变化,同时在“操作说明”框架的标签上显示有关的操作说明 现在开始: 1.设置属性值:  Private Sub Form_Load...

    程序要求:设计一个运行界面如上图所示,当用户在“操作选项”框架中选定操作后,文本框发生相应的变化,同时在“操作说明”框架中的标签上显示有关的操作说明
     
    现在开始:
     1.设置属性值:

      Private Sub Form_Load()
      Option1.ToolTipText = "光标在文本的开始"
      Option2.ToolTipText = "光标在文本的结尾"
      Option3.ToolTipText = "光标在第三行的开始"
      Option4.ToolTipText = "选定第三行"
      Option5.ToolTipText = "选定所有文本"
      End Sub
    ToolTipText只是个起着帮助或提醒一样的作用,就是鼠标停在控件上时会显示一段文字的功能。
    当点击Option控件时,激发Label控件显示相关的操作说明,代码如下(只列出一个,其他的类似):
      Private Sub Option1_Click() '光标在文本的开始
      Label1.Caption = "选定了光标在文本的开始"
      Label1.ToolTipText = "选定了光标在文本的开始"
      '此处还要写其他的代码,先空着
      End Sub
     2.根据程序的要求,可以利用 TextBox 的 SelStart和SelLength 属性,可以控制 TextBox 的插入点和选择行为(这些属性仅能在运行时使用)。首先,为了在 TextBox 控件中显示多行文本,要将 MultiLine 属性设置为 True。
    获得焦点,即显示光标在文本框中用Text1.SetFocus
    再选择光标位置,Text1.SelStart = 0,表示光标在文本框开头;Text1.SelStart = Len(Text1.Text),表示光标在文本框末尾。
    那么如何让光标跳到第三行呢?那就得知道一行能输入多少个字节,我找了好久不知道用什么函数或方法求出一行能输入的字节数,所以我就用了一个愚笨的方法求出来了,代码如下(如果你们知道有什么其他的方法请告诉我下哈,先谢谢啦!):
      Private Sub Option3_Click()
      Dim x As Integer
      x = Len(Text1.Text)
      Text1.Text = x’我求出来的是57
      End Sub
    然后就把代码修改好如下(把刚才多余的代码注释掉):
      Private Sub Option3_Click()
      'Dim x As Integer
      Label1.Caption = "选定了光标在第三行的开始"
      Label1.ToolTipText = "选定了光标在第三行的开始"
      Text1.SetFocus
      'x = Len(Text1.Text)
      'Text1.Text = x
      Text1.SelStart = 57 * 2
      End Sub
    算出了一行所能输入的字节数,下面的步骤也就好做了,代码如下:
      Private Sub Option4_Click()
      Label1.Caption = "选定了第三行的所有字符"
      Label1.ToolTipText = "选定了第三行的所有字符"
      Text1.SetFocus
      Text1.SelStart = 57 * 2
      Text1.SelLength = 57
      End Sub

      Private Sub Option5_Click()
      Label1.Caption = "选定了所有文本"
      Label1.ToolTipText = "选定了所有文本"
      Text1.SetFocus
      Text1.SelStart = 0
      Text1.SelLength = Len(Text1.Text)
      End Sub

      

    那个windows live write还没弄好,代码就没那么好加亮。好了,就这样吧。
    奇了怪了,下面没有vb这类编程语言。就放在‘面向对象’区吧!

    展开全文
  • 求问使用vb6.0中文版通过配置读取的方式怎么给frame控件中的combo设置初始选定和下拉选择?初始选定是一个变量,下拉选择数量不固定怎么实现?
  • 一、软件外观:二、Frame中主要控件及其属性列表Frame主要控件及其属性列表控件名称控件类型控件属性属性值说明ComPortlistlistComboBox端口列表提示选择端口号CombaudratelistComboBox波特率提示选择波特率Command2...

    一、软件外观:

    二、Frame中主要控件及其属性列表

    Frame主要控件及其属性列表
    控件名称控件类型控件属性属性值说明
    ComPortlistlistComboBox端口列表提示选择端口号
    CombaudratelistComboBox波特率提示选择波特率
    Command2CommandButtonCaption刷新端口提示重新刷新端口
    ComportCommandButton 打开端口打开或关闭端口
    LabPathTextBoxText显示文件路径显示文件路径
    cmdOpenCommandButton
    打开文件从本地加载文件到发送区CommonDialog1CommonDialogFilter参数配置文件要打开文件的类型CmdClearCommandButtonCaption清空发送区接收区清空CmdAutoCommandButtonCaption烧录执行程序Command1CommandButtonCaption退出快速退出程序MSComm1MScommCommPort3设置Com3串口LabstateLabellabel状态显示待发送文档信息TextdataTextBoxtext显示显示烧录过程的进度条进度ProgresswriteProgressBarCaption进度条控件 

    三、程序说明

    1.使用时需跳boot0脚,每次下载前需要手动按reset按钮一次或直接重启一次

    2.波特率自适应

    3.端口号自动加Com1-9

    4.烧写文件暂时只支持.bin格式

    展开全文
  • 内部控件,例如 CommandButton 和 Frame 控件。这些控件都在 Visual Basic 的 .exe 文件。内部控件总是出现在工具箱,不象 ActiveX 控件和可插入对象那样可以添加到工具箱,或从工具箱删除。包括:CheckBox...

    一、控件分类

    Visual Basic 的控件有三种广义分类:

    内部控件,例如 CommandButton 和 Frame 控件。这些控件都在 Visual Basic 的 .exe 文件中。内部控件总是出现在工具箱中,不象 ActiveX 控件和可插入对象那样可以添加到工具箱中,或从工具箱中删除。包括:CheckBox(复选框)、ComboBox(组合框)、CommandButton(命令按钮)、Data(数据)、DirListBox(目录列表框)、DriveListBox(驱动器列表框)、FileListBox(文件列表框)、Frame(框架)、HScrollBar 和 VScrollBar(水平和垂直滚动条)、Image(图象)、Label(标签)、Line(线形)、ListBox(列表框)、OLE(OLE 容器)、OptionButton(选项按钮)、PictureBox(图片框)、Shape(形状)、TextBox(文本框)、Timer(定时器)。

    ActiveX 控件,是扩展名为 .ocx 的独立文件,其中包括各种版本 Visual Basic 提供的控件(DataCombo, DataList 控件等等)和仅在专业版和企业版中提供的控件(例如 Listview、Toolbar、Animation 和Tabbed Dialog),另外还有许多第三方提供的的 ActiveX 控件。

    可插入的对象,例如一个包含公司所有雇员的列表的 Microsoft Excel 工作表对象,或者一个包含某工程计划信息的 Microsoft Project 日历对象。因为这些对象能添加到工具箱中,所以可把它们当作控件使用。其中一些对象还支持自动化(正式的名称为 OLE 自动化),使用这种控件就可在 Visual Basic 应用程序中编程控制另一个应用程序的对象。

    二、各控件共用的知识

    (1)可以这样为控件命名:用前缀描述类,其后为控件的描述性名称。

    (2)所有控件都有一个属性,只需引用控件名而无需使用属性名就可利用这个属性来存储或获取数值,称此属性为控件的值,这是控件的最重要或最常用属性。

    控件
    CheckBox(复选框) Value
    ComboBox(组合框) Text
    CommandButton(命令按钮) Value
    CommonDialog(公共对话框) Action
    Data(数据) Caption
    DataCombo(数据组合) Text
    DataGrid(数据网格) Text
    DataList(数据列表) Text
    DirListBox(目录列表框) Path
    DriveListBox(驱动器列表框) Drive
    FileListBox(文件列表框) FileName
    FlexGrid Text
    Frame(框架) Caption
    HScrollBar(水平滚动条) Value
    Image(图象) Picture
    Label(标签) Caption
    Line(线形) Visible
    ListBox(列表框) Text
    OptionButton(选项按钮) Value
    PictureBox(图片框) Picture
    Shape(形状) Shape
    TextBox(文本框) Text
    Timer(定时器) Enabled
    VScrollBar(垂直滚动条) Value

    (3)通过限制焦点验证控件数据:Validate 事件和 CausesValidation 属性是在允许用户将焦点移开控件之前,串联使用以确认对控件的输入的。比如,当每个文本框接收焦点时,您想在文本框的特殊验证准则被满足之前阻止用户移动焦点;然而,您也想允许用户在任何时候都能单击 Help 按钮。 要做到这点,在 Validate 事件中设置验证准则,并将 Help 按钮的 CausesValidation属性设置为 False。另外,Validate 事件包括一个 keepfocus 参数。当参数设置为 True,控件将保留焦点。这样做有效地防止了用户单击其它控件

    三、使用控件数组

    (1)控件数组是一组具有共同名称和类型的控件。它们的事件过程也相同。同一控件数组中的元素有自己的属性设置值。常见的控件数组的用处包括实现菜单控件和选项按钮分组。

    (2)在设计时,使用控件数组添加控件所消耗的资源比直接向窗体添加多个相同类型的控件消耗的资源要少。当希望若干控件共享代码时,控件数组也很有用。参见“有关菜单”

    (3)设计时有三种方法创建控件数组:

    将相同名字赋予多个控件。

    复制现有的控件并将其粘贴到窗体上。

    将控件的 Index 属性设置为非 Null 数值。

    • (4)在运行时,可用 Load 和 Unload 语句添加和删除控件数组中的控件,然而,添加的控件必须是现有控件数组的元素。必须在设计时创建一个(在大多数情况下)Index 属性为 0 的控件。

    • 加载控件数组的新元素时,大多数属性设置值将由数组中具有最小下标的现有元素复制。因为不会自动把 Visible、Index 和 TabIndex 属性设置值复制到控件数组的新元素中,所以,为了使新添加的控件可见,必须将其 Visible 属性设置为 True。

    • 注意 试图对数组中已存在的索引值使用 Load 语句时,Visual Basic 将生成一个错误。

      重点 可用 Unload 语句删除所有由 Load 语句创建的控件,然而,Unload 无法删除设计时创建的控件,无论它们是否是控件数组的一部分。

    四、使用 ADO Data 控件

    4.1 概述

    ADO Data 控件使用 Microsoft ActiveX 数据对象(ADO) 来快速建立数据绑定的控件和数据提供者之间的连接。

    Visual Basic以前的版本提供了内在的 Data 控件和 Remote Data 控件 (RDC) 来进行数据访问。这两种控件仍包括在 Visual Basic 中,以提供向后兼容。不过,因为 ADO 的适应性更广,因此建议用户使用 ADO Data 控件来创建新的数据库应用程序。

    请注意,这种控件是一种相当“昂贵”的创建连接的方法,在第一个控件至少有两个连接,且以后的每个控件至少多一个连接时使用。

    可能的用法

    连接一个本地数据库或远程数据库。

    打开一个指定的数据库表,或定义一个基于结构化查询语言 (SQL) 的查询、或存储过程、或该数据库中的表的视图的记录集合。

    将数据字段的数值传递给数据绑定的控件,可以在这些控件中显示或更改这些数值。

    添加新的记录,或根据对显示在绑定的控件中的数据的任何更改来更新一个数据库。

    • 4.2 用法

    • 如果该控件不在“工具箱”中,请按 CTRL+T 键,显示“部件”对话框。在这个“部件”对话框中,单击“Microsoft ADO Data Control”。

    • 在“属性”窗口中,单击“ConnectionString”显示“ConnectionString”对话框。 如果您已经创建了一个 Microsoft 数据链接文件(Data Link file)(.UDL),请选择“使用 OLE DB 文件”并单击“浏览”,以找到计算机上的文件。如果使用 DSN,则单击“使用 ODBC 数据源名”,并从框中选择一个 DSN,或单击“新建”创建一个。如果想创建一个连接字符串,请选择“使用 ConnectionString”,单击“生成”,然后使用“数据链接属性”对话框创建一个连接字符串。在创建连接字符串后,单击“确定”。

    • 在“属性”窗口中,将“记录源”属性设置为一个 SQL 语句。在访问一个表时,应始终包括一个 WHERE 子句。否则会锁定整个表,这样对其他用户将是一个严重的障碍。

    • 在窗体上再放置一个“文本框”控件,用来显示数据库信息。在其“属性”窗口中,将 Text1 的“数据源”属性设为 ADO Data 控件的名称 (ADODC1)。这样就将这个文本框和 ADO Data 控件绑定在一起。在其“属性”窗口中,单击“数据字段”将下拉得到一个可用的字段列表。单击所要显示的字段的名称。

    下面的代码演示了如何在程序中设置 ConnectionString、Source、DataSource、以及 DataField这四个属性。注意设置 DataSource 属性要使用 Set 语句。

    Private Sub Form_Load()
       With ADODC1
          .ConnectionString = "driver={SQL Server};" & _
          "server=bigsmile;uid=sa;pwd=pwd;database=pubs"
          . RecordSource = "Select * From Titles Where AuthorID = 7"
       End With
       Set Text1.DataSource = ADODC1
       Text1.DataField = "Title"
    End Sub

    4.3 ADO Data 控件的事件

    ADO Data 控件提供了若干个可以编程的事件。WillMove、MoveComplete、WillChangeField、FieldChangeComplete、WillChangeRecord、RecordChangeComplete、WillChangeRecordset、RecordsetChangeComplete、InfoMessage。

    4.4 ADO Data 控件的与数据库相关的属性

    当创建连接时,您可以使用下列三种源之一:一个连接字符串,一个 OLE DB 文件(.MDL),或一个 ODBC 数据源名称(DSN)。当您使用 DSN 时,则无须更改控件的任何其它属性。

    设置 ADO Data 控件的与数据库相关的属性:ConnectionStringUserNamePasswordRecordSourceCommandTypeCursorLocation CursorTypeLockTypeModeMaxRecordsConnectionTimeoutCacheSizeBOFAction、EOFAction

    4.5 绑定到 ADO Data 控件的控件

    任何具有 DataSource 属性的控件都可以绑定到一个 ADO Data 控件。下面的内在控件都可以绑定到 ADO Data 控件:复选框、组合框、图像、标签、列表框、图片框、文本框。

    Visual Basic 的所有版本中也提供下述数据绑定的 ActiveX 控件:DataList、DataCombo、DataGrid、Microsoft Hierarchical FlexGrid、RichTextBox、Microsoft Chart、DateTimePicker、ImageCombo、MonthView

    最后,用户可以使用 DataBinding 对象创建自己的数据绑定的 ActiveX 控件。

    五、使用CheckBox 控件

    如果试图双击 CheckBox 控件,则将双击当作两次单击,而且分别处理每次单击;这就是说,CheckBox 控件不支持双击事件。

    在键盘上使用 TAB 键并按 SPACEBAR 键,由此将焦点转移到 CheckBox 控件上,这时也会触发 CheckBox 控件的 Click 事件。

    CheckBox 控件象 CommandButton 和 OptionButton 控件一样,可通过更改 Style 属性的设置值后使用 Picture、DownPicture 和 DisabledPicture 属性增强其视觉效果。

    六、使用 ComboBox 控件

    (1)虽然通过ComboBox 控件可以显示、编辑和更新大多数标准类型数据库中的信息,但是 DBCombo 提供了更高级的数据访问特性。DBCombo 控件还支持一组与标准组合框控件不同的属性和方法。

    (2)有三种组合框样式。下拉式组合框、简单组合框、下拉式列表框。

    (3)在组合框中添加项目,应使用 AddItem 方法。

    (4)设计时添加项目,选定 List 属性选项并单击向下箭头后就可输入列表项目,然后按 CTRL+ENTER 组合键换到新的一行。只能将项目添加到列表的末尾。所以,如果要将列表按字母顺序排序,则应将 Sorted 属性设置为 True。

    (5)将 Sorted 属性设置为 True 之后,使用带有 index 参数的 AddItem 方法将导致不可预料的非排序结果。排序时不区分大小写;所以 "chardonnay" 和 "Chardonnay" 被看作一个词。

    (6)可在组合框中用 RemoveItem 方法删除项目。为了在组合框中删除所有列表项目,应使用 Clear 方法:Combo1.Clear

    (7)在运行时无论向控件的文本框部分输入了什么文本,Text 属性都与这个文本相对应。这可以是选定的列表选项,或者是用户在文本框中输入的字符串。

    (8)有了 List 属性就可访问列表中所有项目。Text1.Text = Combo1.List(2)

    (9)ListIndex 属性设置或返回控件中当前选定项目的索引值,而且只在运行时有效。对组合框的 ListIndex 属性进行设置也会触发控件的 Click 事件。如果未选定项目,或者用户在组合框中输入选项(样式 0 或 1)而不在列表中选择现有项目,则 ListIndex 为 –1。NewIndex 属性可用来跟踪列表中最后添加的项目的索引。

    (10)为了返回组合框中的项目数,应使用 ListCount 属性。

    七、使用CommandButton

    (1)如果不创建访问键,而又要使标题中包含连字符但不创建访问键,应添加两个连字符 (&&)。这样一来,在标题中就只显示一个连字符而不显示下划线。

    (2)无论何时选定命令按钮都会将其 Value 属性设置为 True 并触发 Click 事件。可在代码中用 Value 属性触发命令按钮的 Click 事件。

    (3)单击命令按钮后也将生成 MouseDown 和 MouseUp 事件。CommandButton 控件中事件发生的顺序为:MouseDown、Click、MouseUp。可通过更改 Style 属性设置值后用 Picture、DownPicture 和 DisabledPicture 属性增强视觉效果。

    八、使用 CommonDialog 控件

    CommonDialog 控件提供诸如打开和保存文件、设置打印选项、选择颜色和字体等操作的一组标准对话框。在运行 Windows 帮助引擎时,控件还能够显示帮助。为了用该控件创建对话框,必须要求 Commdlg.dll 在 Microsoft Windows /System 目录下。

    在窗体上绘制 CommonDialog 控件时,控件将自动调整大小并显示成一个图标。此图标的大小不能改变。象 Timer 控件一样,CommonDialog 控件在运行时不可见。运行时,请适当使用下表所列方法显示需要的对话。

    方法 显示的对话
    ShowOpen 打开
    ShowSave 另存为
    ShowColor 颜色
    ShowFont 字体
    ShowPrinter 打印
    ShowHelp 调用 Windows“帮助”

     

    8.1 “打开“对话框

    下列代码显示“打开“对话框并以选定的文件名为打开文件过程的参数:

    Private Sub mnuFileOpen_Click ()
       'CancelError 为 True。
       On Error GoTo ErrHandler
       '设置过滤器。
       CommonDialog1.Filter = "All Files (*.*)|*.*|Text _
       Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat"
       '指定缺省过滤器。
       CommonDialog1.FilterIndex = 2

       '显示“打开”对话框。
       CommonDialog1.ShowOpen
       '调用打开文件的过程。
       OpenFile (CommonDialog1.FileName)
       Exit Sub

    ErrHandler:
    '用户按“取消”按钮。
       Exit Sub
    End Sub

    (1)指定在“文件类型”列表框中显示的文件过滤器列表。Description 是列表框中显示的字符串─ 例如,"Text Files (*.txt)"。Filter 是实际的文件过滤器─ 例如,"*.txt"。每个description | filter 设置间必须用管道符号分隔 (|)。

    (2)选定文件后可用 FileName 属性获取选定文件的名称。

    (3)对所有公共对话框,当 CancelError 属性为 True,而且用户单击了对话框的“取消”按钮时将生成一个错误。在显示对话框时捕获错误,以此检测是否按了“取消”按钮。

    8.2 使用“颜色”对话框

    Private Sub Command1_Click ()
       '将 Cancel 设置成 True。
       CommonDialog1.CancelError = True
       On Error GoTo ErrHandler
       '设置 Flags 属性。
       CommonDialog1.Flags = cdlCCRGBInit
       '显示“颜色”对话框。
       CommonDialog1.ShowColor
       '将窗体的背景颜色设置成选定的
       '颜色。
       Form1.BackColor = CommonDialog1.Color
       Exit Sub

    ErrHandler:
       '用户按了“取消”按钮。
       Exit Sub
    End Sub

    8.3 使用“字体”对话框

    “字体”对话框根据大小、颜色、样式选择字体。用户一旦在“字体”对话框中选定字体后,其属性就会包含有关用户选项的信息。

    在显示“字体”对话框之前必须将 Flags 属性设置为3个常数之一,否则将发生不存在字体错误。

    8.4 使用“打印”对话框

    “打印”对话框允许用户指定打印输出的方法。用户可指定打印页数范围、打印质量、复制数目等等。此对话框还显示有当前安装的打印机信息,并允许用户进行配置或重新安装新的缺省打印机。

    注意 此对话框并不真正地将数据送到打印机。它允许用户指定如何打印数据。必须编写代码实现用选定格式打印数据。

    若将 PrinterDefault 属性设置为 True,则可在 Visual Basic Printer 对象上打印。另外,当 PrinterDefault 属性为 True 时,所有在“打印”对话框“设置”部分中作出的变更都将改变用户“打印机”设置中的打印机设置值。

    8.5 使用 ShowHelp 方法显示帮助文件

    Private Sub Command1_Click()
       '将 Cancel 设置为 True。
       CommonDialog1.CancelError = True
       On Error GoTo ErrHandler
       '设置 HelpCommand 属性
       CommonDialog1.HelpCommand = cdlHelpForceFile
       '指定帮助文件。
       CommonDialog1.HelpFile = "c:/Windows/Cardfile.hlp"
       '显示 Windows 帮助引擎。
       CommonDialog1.ShowHelp
       Exit Sub

    ErrHandler:
       '用户按下了“取消”按钮。
       Exit Sub
    End Sub

    九、使用Data控件

    Data 控件通过使用 Microsoft 的 Jet 数据库引擎来实现数据访问 –与 Microsoft Access 所用的数据库引擎相同。Data 控件最适合较小的(桌面)数据库,诸如 Access 和 ISAM 数据库。

    Data 控件和 Remote Data 控件两者都包含在 Visual Basic 中,以提供向后兼容。不过,由于 ActiveX 数据对象 (ADO) 的适应性更广,因此建议使用 ADO Data 控件来创建新的数据库应用程序。

    转载于:https://www.cnblogs.com/whchensir/archive/2013/05/20/3088700.html

    展开全文
  • Frame控件vb中使用得比较频繁的控件之一,它在本质上是个button,因此可以用setwindowlong为其附加或者移除BS_LEFT、BS_RIGHT、BS_CENTER之类的风格,以改变其caption的对齐方式,程序如下:'窗体上有一个Frame控件...
  • 加入了frame控件(xp样式)  4.窗体控件增加了控制菜单,增加了ShowIcon属性,可以决定是否显示图标. 特别声明:由于时间关系,窗体控件的皮肤还没完成,所以在这个版本没有换肤功能!  皮肤将在下个版本....
  • VB 控件随窗体自动调整大小,像窗口的ListBox、Image、FileListBox、VB.Frame控件等,都可以随窗口的大小变化而变化,当用户拖动改变窗口大小时,这些控件的大小也会随之改变,这个功能的实现得益于自定义函数Form...
  • 一款支持多种样式的frame框架控件VB环境下使用,支持XP样式、MSN样式等。不过有点不完美的地方是它目前对中文支持不是太好,...
  • 一些注意要点课题12 VB中界面设计专项训练授课:刘金玉知识要点:1.掌握简单设计题目的评分细节,做到容易题目不扣分2.一些注意要点注意:A.要先读题,控件不要用错。B.Frame控件中的控件要检查是否放好,可以尝试...
  • MhUI第三版,前两版因为思路不清析,结构复杂,所以虽然实现了功能,但也是没什么用的 ...后来其实内置的FRAME控件就有些像窗体了,但并不能实现拖放等其他操作, 因为不是很需要 内置两个控件BUTTON和CHECKBOX
  • 1、竖着切分2、横着切分(18KB) 85,spltrbar.zip SpltrBar.ocx控件主要是用来在程序中切分窗口(15KB) 86,cooltoolsbar.zip CoolToolBar v1.0.0控件类似VC的ToolBar的功能,您也可以在VB中轻松实现拖动...
  • 1、竖着切分2、横着切分(18KB) 85,spltrbar.zip SpltrBar.ocx控件主要是用来在程序中切分窗口(15KB) 86,cooltoolsbar.zip CoolToolBar v1.0.0控件类似VC的ToolBar的功能,您也可以在VB中轻松实现拖动...
  • VB中调用API函数

    2020-10-13 09:53:58
    VB中调用API函数 API函数大多在windows/system32/user32文件夹的kernel等动态链接库文件中,现在列举一个需要调用API函数的程序(本例程序使用的工具是VB)来简单介绍一下如何在程序中调用API。 1、首先在VB中...
  • 前面几篇的学习笔记,对 wx.Frame 已经有了一个大概的了解,wx.Frame 就是一个...但是,这个 wx.Frame 窗体和 VB 、Delphi 、WinForm 等等的窗体有一点不一样的地方:一般情况下我们并不直接在窗体上放置控件。 ...
  • 对象,属性,方法以及一个小练习 对象:比如说窗体、工具栏的各种控件对象,标签,命令按钮等 常见的及接下来我们打算学习的控件有: picturebox:图片框 label:标签 text:文本框 frame:框架 ...
  • 一个VB窗体容器实例,一个仿XP风格的Frame容器使用示例,是一个控件的使用例子,例子展现了10多种不同颜色的VB Frame容器效果。
  • 对象,属性,方法以及一个小练习 对象:比如说窗体、工具栏的各种控件对象,标签,命令按钮等 常见的及接下来我们打算学习的控件有: picturebox:图片框 label:标签 text:文本框 frame:框架 ...
  • VB试题.doc

    2012-12-15 21:16:57
    7.框架(Frame控件)可以用来 对其它控件 进行分组,以便于用户识别,主要用于为单选按钮分组。 8、在VB中,用来描述对象外部特征的量称之为对象的_属性__。 9、为使某窗口中的命令按钮“取消(C)”具有如下...
  • Label标签条在VB和Python基本一样。如果不启用ttk,则在文本插入\n来换行,如果启用了ttk,则只支持单行文本(多行可以使用Message控件实现)。...Frame对应Python的LabelFrame控件,做为其他控件的容器,或做...
  • Graph VB 参考

    2006-03-28 13:41:19
    若要创建此控件 请使用此标识符 CheckBox Forms.CheckBox ComboBox Forms.ComboBox CommandButton Forms.CommandButton Frame Forms.Frame Image Forms.Image Label Forms.Label ListBox Forms.ListBox MultiPage ...
  • VB编写一个屏幕颜色拾取器

    千次阅读 2004-07-07 23:38:00
    设计状态下窗口添加两个Frame控件做为容器,加入二个PictureBox控件,一个PictureClip控件(其中装入一个设计好的鼠标指针Mask图片),两个文本框控件,几个Label控件,两个Command控件,一个CheckBox控件。...
  • vb 选项卡 实现

    2011-11-09 15:53:00
    最简单的就是改用部件--mircosoft ...或者你添加N个容器(容器里放控件frame或者picture 对应每一个选项卡页面 然后将容器叠放在一起 编写代码 在tabstrip单击事件判断当前选项卡 继而控制对应容器显隐Visible...

空空如也

空空如也

1 2 3
收藏数 56
精华内容 22
关键字:

vb中frame控件