精华内容
下载资源
问答
  • 下面我就说一下VB中的换行问题现在我们将换行的环境分为三种:窗体输出,文本框(Text)输出,标签(Label)输出一、窗体输出中换一行:Chr(13) 、Chr(10) 、 Chr(13)+Chr(10)换两行:Chr(10)+Chr(13)、两个Chr(13)、...

    有时候我们需要显示多行数据,使其更有逻辑性。下面我就说一下VB中的换行问题

    现在我们将换行的环境分为三种:窗体输出,文本框(Text)输出,标签(Label)输出

    一、在窗体输出中

    换一行:Chr(13) 、Chr(10) 、 Chr(13)+Chr(10)

    换两行:Chr(10)+Chr(13)、两个Chr(13)、两个Chr(10)

    二、在文本框输出中

    换一行:Chr(13)+Chr(10),其他没有了

    换两行:没有,除非第二行为空,即“”

    三、在标签输出中

    换一行:Chr(10),Chr(13),以及所有的组合,都可以换一行,也都只能换一行

    换两行:没有,除非第二行为空,即“”

    下面我们来举个例子:

    Private Sub Command1_Click()

    '在窗体上换行

    Print "我" & Chr(10) & _

    "是" & Chr(13) & _

    "十" & Chr(13) & Chr(10) & _

    "期" & Chr(10) & Chr(13) & _

    "崔" & vbNewLine & _

    "晓" & vbCrLf & _

    "光"

    '在文本框中换行

    Text1.Text = "我" & Chr(10) & _

    "是" & Chr(13) & _

    "十" & Chr(13) & Chr(10) & _

    "期" & Chr(10) & Chr(13) & _

    "崔" & vbNewLine & _

    "晓" & vbCrLf & "" & vbCrLf & _

    "光"

    '在标签中换行

    Label1.ForeColor = vbRed

    Label1.Caption = "我" & Chr(10) & _

    "是" & Chr(13) & _

    "十" & Chr(13) & Chr(10) & _

    "期" & Chr(10) & Chr(13) & _

    "崔" & vbNewLine & _

    "晓" & vbCrLf & "" & vbCrLf & _

    "光"

    End Sub

    其运行的效果图为

    在VB中Chr(10)和Chr(13)还有如下表示,他们的用法一样,这里就不再重复了

    展开全文
  • VB】输出数据和输入数据

    千次阅读 2015-10-18 19:55:48
    输出数据和输入数据 1、VB提供了多种输出数据的...2、Print 方法用于窗体、立即窗体、图片框、打印机等对象上显示文本字符串或表达式的值。Print方法的格式为: [对象名.]Print [表达式表][,|;](表达式可能有问

    输出数据和输入数据

    1、VB提供了多种输出数据的方法,以下是主要几种:

    A用对象Print方法输出数据  B用标签Label控件输出文本  C用文本框TextBox控件输出文件  D用MsgBox函数输出数据。

    2、Print 方法用于在窗体、立即窗体、图片框、打印机等对象上显示文本字符串或表达式的值。Print方法的格式为:

    [对象名.]Print [表达式表][,|;](表达式可能有问题)

    Print为该语句的关键字,必须写。

    [对象名]为可选项,若选择该项,则指定输出的对象,可以为窗体、图片框等对象;若省略该选项,则数据输出在当前窗体对象上。

    [表达式表]为可选项,“表达式表”是由写在同一行上的若干表达式组成的,表达式之间用逗号或分号分隔;若不选,语句的执行结果为输出一空行。

    [,|;]为可选项,表示数据的输出格式。其中逗号“,”表示以分区格式输出数据,即按打印区输出数据,每隔14列为一个打印区。分号“;”表示以紧凑格式输出数据。两者可以混合使用。

    Chr(13):换行符

    3、VB提供了多种输入数据的方法,以下是主要几种:

    A用文本框TextBox控件输入数据  B用列表框、组合框控件输入数据  C用复选框、单选框控件输入数据的选择  D用InputBox函数输入数据。

    4、InputBox函数用“输入对话框”的形式满足输入文本数据的基本需求。语法格式为:

    变量名=IntputBox(提示内容,[对话框标题],[默认输入值])

    其中“提示内容”为对输入数据的解释或说明。

    “[对话框标题]”为可选项,指定输入对话框的标题。

    “[默认输入值]”为可选项,指定输入值的默认值。

    在程序中是用InputBox函数是,系统将自动显示输入对话框。

    例:对给定的任意半径,求圆的周长和面积?

    程序代码如下:

    Private Sub Command1_Click()

      Cls

      Const Pi = 3.1415926

      Dim strR As String

      Dim r As Single

      Dim l As Single, s As Single

      strR = InputBox("请输入圆的半径", "半径输入对话框")

      r = Val(strR)

      s = Pi * r ^ 2

      l = 2 * Pi * r

      Print "圆的半径r=" & strR & Chr(13) & "圆的周长l=" & l & Chr(13) & "圆的面积s=" & s

    End Sub

    展开全文
  • VB中的数据输出: 1,使用标签控件(label), 例子:labe1.caption="... print方法用于窗体(form),立即窗口(Debug),图片框(picturebox)或打印机(printer)等对象中显示或打印输出字符串或表达式...

    VB中的数据输出:

    1,使用标签控件(label),

    例子:labe1.caption="Visual Bisic(简称VB)是Microsoft推出的基于Windows操作系统环境下的软件开发工具。"

    2,使用print方法,

    print方法用于在窗体(form),立即窗口(Debug),图片框(picturebox)或打印机(printer)等对象中显示或打印输出字符串或表达式的值。

    语法格式:

    [<对象名称>.]print[<表达式列表>][,/;]

    注意事项: 1,print方法具有计算和输出的双重功能,先计算表达式的值后输出。

    2,当输出多个表达式时,个表达式之间用逗号“,”或分号“;”隔开。前者按标准格式输出,既每隔14列为一 个输出区;后者是紧跟着前一项输出。

    3,为了使上下两个print语句输出内容显示在同一行上,则需要再上一个print语句的最后加上逗号或者分号。

    例子:

    对应输出的结果:

    4,与print方法有关的函数

    <1>,tab函数。在print方法中,可以使用Tab函数对输出的结果进行定位。格式:Tab(n),它用来指定表式输出的起始列号。

    <2>,spc函数,在print方法中,用spc函数跳过n列。格式:spc(n),其中n是在显示或打印下一个表达式之前插入的空格数。 例子:

    对应输出的结果:

    3,使用信息框函数(msgbox)

    msgbox函数的使用格式:

    <变量名>=msgbox(<提示信息>[,<对话框类型>[,,<对话框标题>]])

    对应属性的使用:

    

    常量值

    说明

    vbOKOnly

    0

    只显示“确定”按钮(缺省值)

    VbOKCancel

    1

    显示“确定”和“取消”按钮

    VbAbortRetryIgnore

    2

    显示“终止”、“重试”和“忽略”按钮

    VbYesNoCancel

    3

    显示“是”、“否”和“取消”按钮

    VbYesNo

    4

    显示“是”和“否”按钮

    VbRetryCancel

    5

    显示“重试”和“取消”按钮

    VbCritical

    16

    显示“关键信息”图标

    VbQuestion

    32

    显示“问号”图标

    VbExclamation

    48

    显示“警告消息”图标

    VbInformation

    64

    显示“通知消息”图标

    vbDefaultButton1

    0

    第一个按钮是缺省值(缺省设置)

    vbDefaultButton2

    256

    第二个按钮是缺省值

    vbDefaultButton3

    512

    第三个按钮是缺省值

    vbDefaultButton4

    768

    第四个按钮是缺省值

    vbApplicationModal

    0

    应用程序强制返回;应用程序一直被挂起,直到用户对消息框

    作出响应才继续工作

    vbSystemModal

    4096

    系统模式:在用户响应消息框前,所有应用程序都被挂起。

    vbMsgBoxHelpButton

    16384

    Help按钮添加到消息框

    VbMsgBoxSetForeground

    65536

    指定消息框窗口作为前景窗口

    vbMsgBoxRight

    524288

    文本为右对齐

    vbMsgBoxRtlReading

    1048576

    指定文本应为在希伯来和阿拉伯语系统中的从右到左显示

    对应输出的结果:

    VB中的数据输入

    1,使用文本框控件(textbox)输入数据;

    2,使用输入框函数(inputbox),语法格式:

    变量名=inputbox(<提示内容>,[<对话框标题>],[<默认值>])

    例子:

    对应输出的结果:

    这些是VB中一些和输入输出有关的控件,函数,也是我们学习VB最需要掌握的基础知识。

    展开全文
  • 机房收费系统中,不少窗体都需要用MSHFlexGrid控件来显示数据,进而方便用户查询希望了解的数据。  原来作品展中我们小组设计了一款小软件,是一款关于计票的软件,也用到了导入到Excel这一功能。所以说来也并不...

               机房收费系统中,不少窗体都要用到MSHFLexgrid控件来显示数据,并要求导入到Excel中,进而方便用户查询和操作数据。

           原来在作品展中我们小组设计了一款小软件,是一款关于计票的软件,也用到了导入到Excel这一功能。所以说来也并不陌生了。

           下面就为大家介绍三种将VB中数据导入到Excel 的方法。

            首先是直接从Text或Label中导入。下面这种方法要自己事先建立一个Excel ,优点是可以在指定的不同的磁盘里建立;不足之处是每次都要自己指定,比较麻烦,而且一旦程序完成,用户将无法建立其他新的工作表,也不得将规定建立的工作表改名。适用于开发者自己使用。


    Private Sub LinkExcel_Click()
        Dim xlApp As Excel.Application       '定义一个新的Excel应用程序
        Dim xlBook As Excel.Workbook         '定义新的工作表
        Dim xlSheet As Excel.Worksheet       '定义新的工作簿
    
        Set xlApp = CreateObject("Excel.Application")      '实例化应用程序
        xlApp.Visible = True    '设置为可见
        Set xlBook = xlApp.Workbooks.Open(App.Path & "\选举结果1.xls")   '打开所建立的"\选举结果1.xls"工作表,这是自己手动建立的工作表
        Set xlSheet = xlBook.Worksheets(1)   '设置当前活动工作簿sheet1
    
        For i = 1 To n
            On Error Resume Next
            x = LblRank(i).Caption     '要显示的Lblrank中的数据
            y = TxtName(i).Text         '要显示的TxtName中的数据
            z = LblTickets(i).Caption   '要显示的LblTickets中的数据
    
            xlSheet.Cells(i, 1).Value = x         '将要显示的数据定位到Excel单元格
            xlSheet.Cells(i, 2).Value = y
            xlSheet.Cells(i, 3).Value = z
        Next i
    
        xlApp.Application.Quit  '释放内存,将控制权交还给Excel
        Set xlApp = Nothing
    End Sub

    
    

            下面这一种就比较方便了,既可以自动建立Excel 工作表,也可以自动存储,存储位置可任意选择,限制很少;不足就是开发代码比较长。这种方法适用范围广,比较方便用户。

             

    Private Sub txtOutPut_Click()
        Dim objExlApp As New Excel.Application '声明一个EXCEL应用程序
        Dim objExlBook As New Excel.Workbook   '声明一个EXCEL工作表
        Dim objExlSheet As New Excel.Worksheet '声明一个EXCEL工作簿
        Dim sFileName As String   '定义存储的文件名变量
        Dim lngRowsCount As Long  '声明行数变量
        Dim lngColumnsCount As Long  '声明列数变量
        Dim lngRow As Long         '声明单行
        Dim lngColumn As Long      '声明单列
        Dim strText As String      '声明保存的文件名变量
        
        '先判断MSFG1中有没有数据
        If MSFG1.Rows > 1 Then
    
            '另存到XLS文件
            '   设置“取消”为   True
            dlgSave.CancelError = False
            On Error Resume Next
            Set objExlApp = GetObject(, "Excel.Application")
            If Err.Number <> 0 Then
                Set objExlApp = CreateObject("Excel.Application")
            End If
            '错误处理
            On Error GoTo ErrHandler
            '保存对话框处理
            dlgSave.Filter = "Excel文件(*.xls)|*.xls|所有文件|*.*" '文件类型
            dlgSave.FileName = "杨建" & Format(Now, "yyyy-mm-dd") & ".XLS" '文件名
            dlgSave.ShowSave
    
            '在Excel中增加一个工作簿
            Set objExlBook = objExlApp.Workbooks.Add
            '实例化一个表单,并使其成为Excel的活动工作表单
            Set objExlSheet = objExlBook.Worksheets(1)
    
            '设置要使用的工作表,使其可见,并实例化EXCEL工作表单
            objExlApp.Visible = True
            objExlApp.ScreenUpdating = True
            objExlApp.DisplayAlerts = True
            Set objExlSheet = objExlBook.Sheets(1)
    
            lngRowsCount = MSFG1.Rows
            lngColumnsCount = MSFG1.Cols
            
            '导入数据
            For lngRow = 1 To lngRowsCount
                For lngColumn = 1 To lngColumnsCount
                    strText = MSFG1.TextMatrix(lngRow - 1, lngColumn - 1)
                    If IsNull(strText) = False And strText <> "" Then
                        objExlSheet.Cells(lngRow, lngColumn) = strText
                    End If
                Next lngColumn
            Next lngRow
    
            objExlApp.Visible = True
            sFileName = dlgSave.FileName  '导出文件的文件名与保存时的文件名相同
             objExlSheet.SaveAs sFileName  '设置保存时的文件名
    
             objExlApp.Application.Quit  '终止Excel程序运行
             Set objExlSheet = Nothing   '释放内存里的变量,交还控制给Excel         
            Set objExlBook = Nothing
            Set objExlApp = Nothing
            'objExlBook.Close
            MsgBox "文件已生成,在:" & sFileName  '提示文件生成及保存的路径
    
        Else
            MsgBox "没有可导出的数据,请先进行查询!"
        End If
    
    ErrHandler:
        Exit Sub
    End Sub

            

            第三种方法就是自己定义一个导入到Excel的函数,到时候直接调用就可以了。函数的定义方法用很多种,就不在此为大家过多叙述了,举一个例子即可。
            

    Public Sub ExportToExcel() '导出数据到excel      
        On Error Resume Next  
        Dim oExcel As Excel.Application  
        Dim obook As Excel.Workbook  
        Dim objExlSht As Excel.Worksheet  
          
        Dim listrst() As Variant  
        Dim X, Y As Long  
        Dim i, n As Integer  
          
        Set oExcel = New Excel.Application  
        Set obook = oExcel.Workbooks.Add  
        Set objExlSht = obook.ActiveSheet  
          
        X = myflexgrid.Rows  
        Y = myflexgrid.Cols  
          
        ReDim listrst(X, Y)  
            
          For i = 0 To myflexgrid.Rows - 1  
             For n = 0 To myflexgrid.Cols - 1  
                 listrst(i, n) = Trim(myflexgrid.TextMatrix(i, n))  
               Next  
         Next  
              
            DoEvents  
                With objExlSht  
                       oExcel.Intersect(.Range(.Rows(1), .Rows(X)), .Range(.Columns(1), .Columns(Y))).Value = listrst  
          
                 End With  
             oExcel.Visible = True  
             oExcel.Interactive = True  
    End Sub  
    

                当然,还有其他方法可以实现该功能,大家可以继续去深入探索,找到适合自己的高效快捷方便的方法,本次就先介绍到这里。
     

    展开全文
  • 一、ComboBox:组合框控件数据绑定 Windows 应用程序中很多控件都提供了 DataSource 属性,并将 DataSet 或 DataTable 的值直接赋给该属性,这样控件中即可显示从数据库中查询出来的数据。常用的数据绑定控件有...
  • 下面我就说一下VB中的换行问题现在我们将换行的环境分为三种:窗体输出,文本框(Text)输出,标签(Label)输出一、窗体输出中换一行:Chr(13) 、Chr(10) 、 Chr(13)+Chr(10)换两行:Chr(10)+Chr(13)、两个Chr(13)、...
  • vb datareport 换页

    2009-02-18 11:52:00
    page header这个session里有line画成的表格,表格里有一些label用来显示数据。目前这个rpt只会有一页数据(即数据集只有一行),不会有多页数据。 需求:有个label在表格的中间,它可能会有很多内容,当内容很多...
  • 引言经常需要从数据库或者其他文件中将数据显示到网格控件中(如MSHFlexGrid),但是却发现这些网格控件没有自动调整宽度的功能(至少我其属性中找很久没找到)。这个功能的缺失将给编写程序者带来不小的麻烦,势必会...
  • 当表单加载时,我想检索其用户名在Label1中的播放器数据,因此我可以在Label2中显示其点.到目前为止,这是我的代码:Dim conn As MySqlConnectionconn = New MySqlConnection("server=REMOVED;Port=REMOVED; user id=...
  • VB中怎么换行

    万次阅读 热门讨论 2013-11-16 15:15:21
    有时候我们需要显示多行数据,使其更有逻辑性。下面我就说一下VB中的换行问题  现在我们将换行的环境分为三种:窗体输出,文本框(Text)输出,标签(Label)输出 一、窗体输出中  换一行:Chr(13) 、Chr...
  • vb学生成绩管理系统

    2013-06-28 08:55:24
    '如果输入了学号,则把姓名显示在Text1.Text strSQL = "select * from 学生情况表" strSQL = strSQL + " Where 学号='" + Combo1.Text + " '" ADOrs.Open strSQL Text1.Text = ADOrs.Fields("姓名") ADOrs.Close '...
  • Private Sub lstbus_Click() '单击列表框时,更新右侧的显示数据 Dim cnn As New ADODB.Connection '定义数据库连接 Dim rst As New ADODB.Recordset '定义记录集 Dim str1 As String, str2 As String '临时字符...
  • 小弟想实现一个窗口,刚开始根据数据库的true or false去控制一个label显示“激活”,“失效”, 然后点next实现下一个数据的显示。。。 **今天研究了一下午,发现是窗体load的时候recordset.fields过东西了导致...
  • 经常需要从数据库或者其他文件中将数据显示到网格控件中(如MSHFlexGrid),但是却发现这些网格控件没有自动调整宽度的功能(至少我其属性中找很久没找到)。这个功能的缺失将给编写程序者带来不小的麻烦,势必会...
  • ezavimaker.ZIP 一个可以将BMP文件生成AVI文件的控件,包含范例(173KB) 52,s027_coolbutton1.ZIP 由4个Line控件和1个Label显示的类似命令按钮的(3KB) 53,CoolButton.ZIP 你可以把它作成一个控件(34...
  • ezavimaker.ZIP 一个可以将BMP文件生成AVI文件的控件,包含范例(173KB) 52,s027_coolbutton1.ZIP 由4个Line控件和1个Label显示的类似命令按钮的(3KB) 53,CoolButton.ZIP 你可以把它作成一个控件(34...
  • ezavimaker.ZIP 一个可以将BMP文件生成AVI文件的控件,包含范例(173KB) 52,s027_coolbutton1.ZIP 由4个Line控件和1个Label显示的类似命令按钮的(3KB) 53,CoolButton.ZIP 你可以把它作成一个控件(34...
  • ezavimaker.ZIP 一个可以将BMP文件生成AVI文件的控件,包含范例(173KB) 52,s027_coolbutton1.ZIP 由4个Line控件和1个Label显示的类似命令按钮的(3KB) 53,CoolButton.ZIP 你可以把它作成一个控件(34...
  • If gridsave = True And Col = 5 Then '确认默认年龄20岁左右 If Row <> 0 Then Grid1.Cell(Row, 5).Text = Date - 7300 End If End If End Sub Private Sub Grid1_Validate(Cancel As Boolean) '设定TAB键...
  • 这篇文章演示如果让用户有显示/隐藏他们需要的GridView的列的功能,这是非常有用的,因为GridView的所有列并不是每个的用户都需要的.用户想根据自己的需求看到想要的列.而不是显示一个巨大的gridview,霸占了整个...
  • 读取数据库

    2007-06-14 01:41:00
    ASP里面我们读取数据就直接用RECORDSET,然后HTML代码里面穿插就可以显示了,但是ASP.NET讲究的是代码分离,如果还是这样显示数据就不能代码分离了。所以我们有两种方法:如果是读取一条记录的数据或者不多的...
  • 一小时内学会 C#(txt版本)

    热门讨论 2009-08-19 18:09:37
    readonly 和 const 数据成员不同之处在于 const 要求你声明时进行直接初始化。看下面的例程: 复制内容到剪贴板 代码: class MyClass { const int constInt = 100; //直接进行 readonly int myInt = 5; //直接...
  • ASP.NET 控件的使用

    2009-04-02 16:02:54
    13.2.2 多列中显示数据 431 13.2.3 DataList控件中使用模板 433 13.2.4 使用DataList控件选择数据 434 13.2.5 使用DataList控件编辑数据 437 13.2.6 格式化DataList控件 440 13.3 小结 442 第14章 使用ListView...
  • ASP.NET.4揭秘

    2012-06-08 16:20:52
    13.2.2 多列中显示数据492 13.2.3 datalist控件中使用模板494 13.2.4 使用datalist控件选择数据496 13.2.5 使用datalist控件编辑数据499 13.2.6 格式化datalist控件503 13.3 小结505 第14章 使用listview和...
  • ASP.NET精品课程+源代码

    千次下载 热门讨论 2009-01-05 20:15:51
    案例讲解中,可只讲解一种方法,也就是以程序的手段来实现对文本及数据的读写操作以及ASP.NET对文件的操作,另外的方法可以让学生自主学习。 当整个案例的基本功能实现差不多了,就可以对案例进行扩充和扩展,例如...
  • 商品销售源码

    2012-06-28 22:07:43
    Begin VB.Form main_jbxx_kh BackColor = &H00C0C0C0;& BorderStyle = 1 'Fixed Single Caption = "基本信息管理-【客户信息管理】" ClientHeight = 6165 ClientLeft = 1515 ClientTop = 2385 ClientWidth =...
  • VB.NET编写了一个OPC连接西门子S7400 PLC的程序,这两天刚刚能够MyGroup_AsyncReadComplete内的ItemValues(j)(1))读取S7400 PLC地址DB110.DBW地址数据,我是要读取DBW内1000组数据,,但是发现怎么只能循环读取...
  • ASP里面我们读取数据就直接用RECORDSET,然后HTML代码里面穿插就可以显示了,但是ASP.NET讲究的是代码分离,如果还是这样显示数据就不能代码分离了。所以我们有两种方法:如果是读取一条记录的数据或者不多的...
  • arcgis工具

    2012-10-22 22:37:31
    如:“AREA”,如果查询的是个人地理数据库数据,则需要将字段名包含方括号内,如:[AREA],如果查询的是ArcSDE地理数据库数据或是ArcIMS要素类或ArcIMS影象服务子层中的数据,则不需要将字段名括起,如:AREA ...

空空如也

空空如也

1 2 3
收藏数 42
精华内容 16
关键字:

vb在label显示数据