精华内容
下载资源
问答
  • vb读取excel中的数据窗体上显示

    万次阅读 2017-11-20 17:23:13
    Private TextBoxA() As Control '以编辑框为基础动态构造数据网格 Private FormWidth As Integer '窗体宽度 '以下子程序是用来建立数据网格 Sub CreateGrid(No, Data)  For
    Public  ExcelTable  As  Workbook   'excel 工作表对象
    Private  TextBoxA()  As  Control       '以编辑框为基础动态构造数据网格
    Private  FormWidth  As  Integer        '窗体宽度
    '以下子程序是用来建立数据网格
    Sub  CreateGrid(No, Data)
         For  i = 1  To  CInt (UBound(Data, 1))
             For  j = 1  To  CInt (UBound(Data, 2))
                 Set  a = Form1.Controls.Add( "VB.TextBox" "textbox"  CStr (i) &  CStr (j) &  CStr (No))
                 ReDim  TextBoxA(1  To  i, 1  To  j)   '重新定义动态数组!
                 Set  TextBoxA(i, j) = a
                 With  TextBoxA(i, j)             '设置文本框属性
                     .Text = Data(i, j)
                     .Visible =  True
                     .Height = 200
                     .Width = 500
                     .Top = .Height * (i - 1)
                     .Left = .Width * (j - 1) + FormWidth
                 End  With
             Next
         Next
       
    End  Sub
     
    Private  Sub  Command1_Click()
         Set  ExcelTable = CreateObject( "Excel.sheet" '建立对象实例
         ExcelTable.Application.Workbooks.Open (App.Path +  "\address.xls" '打开数据文档address.xls
         For  i = 1  To  ExcelTable.Application.Worksheets.Count     '获得工作表数目
             Data = ExcelTable.Application.Worksheets(i).UsedRange.Value    '获取每个工作表的数据
             DataType = VarType(Data)       '跳过没有数据的空表
             Select  Case  DataType
             Case  vbArray + vbVariant
                 Call  CreateGrid(i, Data)    '传递数据,建立以文本框为基础的数据网格
             Case  vbEmpty
             End  Select
         Next
    End  Sub
    展开全文
  • vb 读取网页数据

    2021-06-12 04:50:02
    Next Me.Timer1.Enabled = True Me.Label1.Caption = Me.List1.ListCount End Sub 'URL为网页地址 'URLS为网页代码中的URL组 Function Url_In_Html(URL As String, ByRef URLS() As String, CodeType As String) Dim...

    【实例简介】

    【实例截图】

    b9fa379902186907ad400ef2f383ee31.png

    【核心代码】

    '田草博客:www.tiancao.net

    'tiancao1001@126.com

    'QQ:327750885

    '2008.1.16

    'Option Explicit

    Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

    Const VK_NUMLOCK = &H90

    Private Declare Function SendMessage Lib "user32" _

    Alias "SendMessageA" (ByVal hwnd As Long, _

    ByVal wMsg As Long, ByVal wParam As Long, _

    lParam As Any) As Long

    Private Const LB_SETHORIZONTALEXTENT = &H194

    Private Sub Combo2_Click()

    Me.Text2.Text = Me.Combo2.Text

    End Sub

    Private Sub Command1_Click()

    On Error Resume Next

    Dim HTML As String

    HTML = viewSource(Me.Text2.Text, Me.Combo1.Text)

    If HTML = "" Then Exit Sub

    Me.Text1.Text = HTML

    Dim URLS() As String

    Url_In_Html Me.Text2.Text, URLS, Me.Combo1.Text

    Dim i As Integer

    'Me.List1.Clear

    For i = 0 To UBound(URLS)

    Me.List1.AddItem URLS(i)

    Next

    Me.Timer1.Enabled = True

    Me.Label1.Caption = Me.List1.ListCount

    End Sub

    'URL为网页地址

    'URLS为网页代码中的URL组

    Function Url_In_Html(URL As String, ByRef URLS() As String, CodeType As String)

    Dim i As Long, j As Integer

    URL = Replace(URL, "\", "/") '将网页地址中可能含有的“\“全部替换成成”/”,这样地址中的分割符合就一致。

    i = inStr_n(URL, "/") '比如给的路径是http://www.tiancao.net

    If i = 2 Then URL = URL & "/"

    i = InStrRev(URL, "/")

    Dim URL1 As String

    URL1 = Left(URL, i) '查找地址的绝对地址路径

    Dim HTML As String

    HTML = viewSource(URL, CodeType)

    If HTML = "" Then Exit Function

    HTML = UCase(HTML) '将网页源码全部转换成大写

    Dim N As Integer

    Dim index() As Long

    N = inStr_n(HTML, "HREF", index)

    'MsgBox "总共有" & N & "个href标签"

    Dim T As String

    Dim T1 As String

    Dim Temp As String

    Dim Temp1 As String

    Dim Temp2 As Integer

    Dim Temp3 As Integer

    Dim Temp5 As Integer

    Dim M As Integer

    For i = 0 To N - 1

    Temp = Mid(HTML, index(i) 5, 300)

    '这里取url的长度为300,如果超过则检测不到,这300个字符中可能包含下一个或几个HREF标签,但这不用担心,程序会分析每个标签的。

    '为什么取那么多,是因为很多网页的URL编码可能很长,比如百度推广的广告和陶宝网的网址都很长。

    For j = 2 To Len(Temp)

    T = Mid(Temp, j, 1)

    If T = """" Or T = ">" Or T = "'" Or T = " " Then

    Temp1 = Left(Temp, j - 1)

    Temp1 = Left(Temp, j - 1)

    Temp2 = InStr(Temp1, " ") 'URL中含有 号的(比如)

    Temp3 = InStr(Temp1, "#") 'URL中含有#号的(比如)

    Temp5 = InStr(Temp1, "MAILTO") 'URL中含有空格的(比如)

    '没有能检查所以的情况

    If Temp2 = 0 And Temp3 = 0 And Temp5 = 0 Then

    ReDim Preserve URLS(M)

    If Left(Temp1, 1) = """" Or Left(Temp1, 1) = "'" Then Temp1 = Right(Temp1, Len(Temp1) - 1) 'URL前面可能还有个引号或单引号

    If Temp2 = InStr(Temp1, ":") <> 0 Then

    '存在冒号,说明是绝对路径(HTTP://),没有用判断HTTP来判断,是因为windows可以用HTTP给文件夹命名,而不可以用冒号

    If Left(Temp1, 1) = "/" Or Left(Temp1, 1) = "\" Then

    Temp1 = URL1 & Right(Temp1, Len(Temp1) - 1)

    Else

    Temp1 = URL1 & Temp1

    End If

    End If

    URLS(M) = Temp1

    M = M 1

    Exit For

    End If

    End If

    Next

    Next

    End Function

    '返回某一字符串在另一个字符串中出现的次数 index返回出现的位置数组

    Public Function inStr_n(str As String, StrIn As String, Optional index As Variant) As Long

    Dim i As Long

    Dim Temp As Long: Temp = 1

    Dim N As Long

    N = 0

    For i = 1 To Len(str)

    Temp = InStr(Temp 1, str, StrIn)

    If Temp = 0 Then

    Exit For

    Else

    If IsMissing(index) = False Then

    ReDim Preserve index(N)

    index(N) = Temp

    End If

    N = N 1

    End If

    Next i

    inStr_n = N

    End Function

    '查看网页的源码

    Function viewSource(URL As String, CodeType As String)

    On Error GoTo E:

    Dim XmlHttp

    Set XmlHttp = CreateObject("Microsoft.XMLHTTP")

    XmlHttp.Open "GET", URL, False

    XmlHttp.setRequestHeader "Content-Type", "text/XML"

    XmlHttp.Send

    Dim HTML

    HTML = Bytes_to_Unicode(XmlHttp.responseBody, CodeType)

    viewSource = HTML

    Exit Function

    E:

    viewSource = ""

    End Function

    '只能得到西文的字符串,中文只能显示GB2312编码。

    Function bytes2BSTR(vIn)

    Dim strReturn As String

    Dim i As Long

    Dim ThisCharCode As Integer

    Dim NextCharCode As Integer

    Dim ThirdCharCode As Integer

    strReturn = ""

    For i = 1 To LenB(vIn)

    ThisCharCode = AscB(MidB(vIn, i, 1))

    If ThisCharCode < &H80 Then

    strReturn = strReturn & Chr(ThisCharCode)

    Else

    NextCharCode = AscB(MidB(vIn, i 1, 1))

    ThirdCharCode = AscB(MidB(vIn, i 2, 1))

    strReturn = strReturn & UTF8_to_Unicode(ThisCharCode, NextCharCode, ThirdCharCode)

    i = i 2

    End If

    Next

    bytes2BSTR = strReturn

    End Function

    '字节数值转汉字

    Function Bytes_to_Unicode(Bytes, CodeType As String)

    Dim strReturn As String

    Dim i As Long

    Dim ThisCharCode As Integer

    Dim NextCharCode As Integer

    Dim ThirdCharCode As Integer

    strReturn = ""

    For i = 1 To LenB(Bytes)

    ThisCharCode = AscB(MidB(Bytes, i, 1))

    If ThisCharCode < &H80 Then

    strReturn = strReturn & Chr(ThisCharCode)

    Else

    If CodeType = "UTF-8" Or CodeType = "UTF8" Then

    NextCharCode = AscB(MidB(Bytes, i 1, 1))

    ThirdCharCode = AscB(MidB(Bytes, i 2, 1))

    strReturn = strReturn & UTF8_to_Unicode(ThisCharCode, NextCharCode, ThirdCharCode)

    i = i 2

    Else

    NextCharCode = AscB(MidB(Bytes, i 1, 1))

    strReturn = strReturn & Unicode(ThisCharCode, NextCharCode)

    i = i 1

    End If

    End If

    Next

    Bytes_to_Unicode = strReturn

    End Function

    '二字节汉字转换

    Function Unicode(BY1, BY2) As String

    Unicode = Chr(Int(BY1) * 256 Int(BY2))

    End Function

    '三字节的UTF-8编码转二字节的Unicode编码

    Function UTF8_to_Unicode(BY1, BY2, BY3) As String

    Dim BIN_UTF8 As String

    BIN_UTF8 = DEC_to_BIN(Int(BY1)) & DEC_to_BIN(Int(BY2)) & DEC_to_BIN(Int(BY3))

    Dim BIN_Unicode As String

    BIN_Unicode = Mid(BIN_UTF8, 5, 4) & Mid(BIN_UTF8, 11, 6) & Mid(BIN_UTF8, 19, 6)

    Dim DEC_Unicode As Long

    DEC_Unicode = BIN_to_DEC(BIN_Unicode)

    UTF8_to_Unicode = ChrW(DEC_Unicode)

    End Function

    Private Sub Command2_Click()

    Me.Hide

    Me.Timer2.Enabled = True

    End Sub

    Private Sub Command3_Click()

    Dim FSO As Object

    Dim FSO_File As Object

    Set FSO = CreateObject("Scripting.FileSystemObject")

    Set FSO_File = FSO.OpenTextFile(App.Path & "/url.txt", ForWriting, True) '读取文件而不创建

    Dim i As Long

    For i = 0 To Me.List1.ListCount - 1

    FSO_File.WriteLine Me.List1.List(i)

    Next

    FSO_File.Close

    End Sub

    Private Sub Command4_Click()

    Dim FSO As Object

    Dim FSO_File As Object

    Set FSO = CreateObject("Scripting.FileSystemObject")

    Set FSO_File = FSO.OpenTextFile(App.Path & "/url.txt", ForReading, False) '读取文件而不创建

    Do While Not FSO_File.AtEndOfStream

    Me.List1.AddItem FSO_File.ReadLine

    Loop

    FSO_File.Close

    Me.Timer1.Enabled = True

    End Sub

    Private Sub Form_Load()

    Me.WebBrowser1.Navigate "http://www.tiancao.net/"

    Me.WebBrowser1.Silent = True

    Me.Timer1.Enabled = False

    addHorScrlBarListBox List1

    Me.Combo1.AddItem "UTF-8"

    Me.Combo1.AddItem "GB2312"

    Me.Combo1.AddItem "Unicode"

    Me.Combo1.Text = "GB2312"

    Me.Combo2.Text = "http://www.tiancao.net/"

    Me.Combo2.AddItem "http://www.tiancao.net/"

    Me.Combo2.AddItem "http://tiancao.net"

    Me.Combo2.AddItem "http://ntsjytfgs.w39.cndns.com/"

    Me.Combo2.AddItem "http://tiancao1001.w18.cndns.com/"

    End Sub

    Private Sub List1_DblClick()

    Me.WebBrowser1.Navigate Me.List1.List(Me.List1.ListIndex)

    End Sub

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

    On Error Resume Next

    If Button = 2 Then Me.List1.RemoveItem Me.List1.ListIndex

    End Sub

    '每一分钟随机打开list中的一个连接

    Private Sub Timer1_Timer()

    On Error Resume Next

    Dim j As Integer

    j = Rnd() * Me.List1.ListCount

    Me.WebBrowser1.Navigate Me.List1.List(j)

    End Sub

    ' list加横向滚动条

    Public Sub addHorScrlBarListBox(ByVal refControlListBox As Object)

    Dim nRet As Long

    Dim nNewWidth As Integer

    nNewWidth = refControlListBox.Width * 4 ' 新宽度,以像素为单位。

    nRet = SendMessage(refControlListBox.hwnd, _

    LB_SETHORIZONTALEXTENT, nNewWidth, ByVal 0&)

    End Sub

    Private Sub Timer2_Timer()

    Dim i As Long

    i = GetKeyState(VK_NUMLOCK)

    If i = 0 Then

    Me.Show

    Me.Timer2.Enabled = False

    End If

    End Sub

    展开全文
  • 例如:我想在Label中保留两位有效小数位 <Label> <Label.Content> <TextBlock Text="{Binding PlanMu, StringFormat={}{0:F2}}"></TextBlock> </Label.Content> </Label>

    例如:我想在Label中保留两位有效小数位

    <Label>
        <Label.Content>
            <TextBlock Text="{Binding PlanMu, StringFormat={}{0:F2}}"></TextBlock>
        </Label.Content>
    </Label>
    

    TextBox 限制只能输入正浮点数或正整数

    只需要两步:

    1.禁用文本框中输入法如下:

    <TextBox Name="tb_Test" InputMethod.IsInputMethodEnabled="False"/>

    2.TextBox添加PreviewTextInput事件,如下:

    正浮点数用下面方法:

    //正浮点数    
    private void tbTest_PreviewTextInput(object sender,TextCompositionEventArgs e)
    {
            //匹配只能输入一个小数点的浮点数
             Regex numbeRegex = new Regex("^[.][0-9]+$|^[0-9]*[.]{0,1}[0-9]*$");
                e.Handled =
                    !numbeRegex.IsMatch(
                        tbTest.Text.Insert(
                            tbTest.SelectionStart, e.Text));
                tbTest.Text = tbTest.Text.Trim();
    }

    正整数用下面方法:

    //正整数  
    private void tbTest_PreviewTextInput(object sender,TextCompositionEventArgs e)
    {
                Regex re = new Regex("[^0-9.-]+");
                e.Handled = re.IsMatch(e.Text);
    }

    完整代码

    <Window x:Class="WpfModelViewApplication1.Views.MainView"
        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        xmlns:input="clr-namespace:System.Windows.Input;assembly=PresentationCore"
        Title="Main Window" Height="400" Width="800">
    
     <Grid x:Name="grid1">
                <TextBox x:Name="tbTest" Width="100" HorizontalAlignment="Right" Margin="0,164,122,128" PreviewTextInput="tb_PreviewTextInput" input:InputMethod.IsInputMethodEnabled="False"/>
            </Grid>
    
    </Window>

     

    展开全文
  • 有多种方法可以窗口之间传递数据,比如: 1、模块文件(Module)中声明一个全局公共变量,然后其他窗体中就可以通过这个变量来存取数据了,如: 模块文件中声明变量a Public a as string Form1中给a赋值 a...

    有多种方法可以在窗口之间传递数据,比如:

    1、在模块文件(Module)中声明一个全局公共变量,然后在其他窗体中就可以通过这个变量来存取数据了,如:
    在模块文件中声明变量a
    Public a as string
    在Form1中给a赋值
    a="您好!"
    在Form2中读取a
    msgbox a

    2、在要传递数据的那个窗口声明一个模块级的全局变量,然后在其他窗体中就可以通过这个变量(要加上窗体名的引用)来存取数据了,如:
    在Form1中声明变量a及赋值
    Public a As String
    Private Sub Form_Load()
    a = "你好!"
    End Sub
    在Form2中读取a
    msgbox Form1.a

    3、利用各个窗体中的控件属性来传递数据,如:
    让Form2的Label1的显示内容和Form1的Label1一样
    Form2.Label1.Caption = Form1.Label1.Caption

    展开全文
  • 先看一下效果图:文本框用label控件,按钮用button控件,显示用框TextBox控件,(Name)可以自己修改 建立一个学生表名字为Student 双击窗体进入代码界面,最顶上输入: Imports System.Data.SqlClient '导入命名空间...
  • 很多文章里都说Visaul Basic .NET中显示窗体之前必须先实例化,经测试,也可以与旧Visual Basic 6.0 一样不经实例化直接Form1.Show显示窗体。 一、正确显示窗体 新建一个窗体应用程序,再添加一个模块和一个窗体...
  • vb将字符串显示为二进制数据 vb将字符串显示为二进制数据,这里主要使用向右移位操作,经过测试,移位操作符>>的移位时循环移位的,示例代码如下,本示例中,尝试修改还可以观察到各种字符编码的宽度 Public...
  • VB中输入和输出数据的总结

    万次阅读 2011-11-29 12:21:33
    VB中的数据输出:   1,使用标签控件(label),  例子:labe1.caption="Visual Bisic(简称VB)是Microsoft推出的基于Windows操作系统环境下的软件开发工具。"  2,使用print方法,  print方法用于窗体(form...
  • VB 中的基本数据类型

    万次阅读 2017-06-11 10:12:31
    VB基本数据类型 VB 6.O提供的基本数据类型主要有:字符型数据、数值型数据、货币类型、字节类型、布尔类型、日期类型、通用类型、无符号类型、对象类型等9种数据类型。 1.字符型数据 字符型数据(String)用以定义...
  • text1.text=text2.text & vbcrlf 这样肯定不可以
  • ' @author qiyulin @date 2021.07.07 VB实现物联网EXE客户端上位机软件 Option Explicit Private CONF(100) As String Private showLog As Integer Dim labels(100) As Object Dim names(100) As String Dim ...
  • 一、VB.NET ASP.NET问题还原当我对一条数据进行编辑的时候,我们进入了编辑页面,比如下面页中的Work Araound字段我对这些字段填了一些内容。我通过回车,分成了一段一段,可是,当我们保存这个编辑页面的时候,结果...
  • 用chart做数据显示时我通过 ...来达到显示数据值,但是它把每个数据点的值都显示出来了,如果我只想显示折线拐点的值该怎么做呢?![图片说明](https://img-ask.csdn.net/upload/201712/01/1512096913_621957.png)
  • VB】输出数据和输入数据

    千次阅读 2015-10-18 19:55:48
    输出数据和输入数据 1、VB提供了多种输出数据的...2、Print 方法用于窗体、立即窗体、图片框、打印机等对象上显示文本字符串或表达式的值。Print方法的格式为: [对象名.]Print [表达式表][,|;](表达式可能有问
  • 下面我就说一下VB中的换行问题现在我们将换行的环境分为三种:窗体输出,文本框(Text)输出,标签(Label)输出一、窗体输出中换一行:Chr(13) 、Chr(10) 、 Chr(13)+Chr(10)换两行:Chr(10)+Chr(13)、两个Chr(13)、...
  • 如您学习VB过程中有自己独特的见解或者学习想法,欢迎投稿,可公众号文章下直接留言,一经采纳,奖励丰厚。推荐阅读1.VB编程语言基础知识点总结2.VB编程基本数据类型完整剖析3.VB编程设计--文件同步程序的开发4....
  • VB.net通过ADO.NET连接数据库,或执行查询语句等,都需要等待一段时间,这段时间界面无法操作,程序显示出假死现象,无任何响应,...因此,需要通过VB.NET多线程技术,ADO.NET执行命令期间,显示一个不断变化的进度条
  • VB进行串口实时数据采集

    千次阅读 2008-08-05 21:19:00
    本文介绍VB6.0利用MSComm通信控件,开发微机通过串口对工业仪表进行实时数据采集的编程技术。给出的程序代码具有通用性,并有详细的注释,可以直接或稍加改动后用于其他数据采集或实时控制程序中。 ----一台工业专用...
  • VB.NET设置控件和窗体的显示级别 前言:VB.NET开发射频检测系统ADS时,当激活已存在的目标MDI子窗体时,被其他子窗体遮住了,导致目标MDI子窗体不能显示. 这个问题怎么解决呢?网上看到一篇帖子VB.NET设置控件和窗体...
  • 例如aaaaaa bbbb应该中间断开AB,AAAA如果你想让自己的文本显示换行符,可以文件中间添加CH(13)来实现这个功能。vb中怎么实现msgbox中的换行?Msgbox“名称:通讯簿管理”&amp vbcrlf&amp“版本:个人...
  • 设计分析一般是先数据库查询有三种方法方法一:使用...方法三:先执行Select语句获取数据库数据,将其存放到RecordSet对象中,然后执行Recordset对象的Find方法查找符合条件的记录 ,或者设置Recordset对象的Filter属...
  • 上一篇博文已经介绍了如何创建WebService,本篇博客讲解如何本地调用WebService。 创建生成WebService后会默认提供了一个HelloWord的方法,此时我们就来调用这个方法。 首先点击图中箭头所指处或者按F5运行...
  • VB.NET时间日期数据处理及技巧

    千次阅读 热门讨论 2012-01-29 11:28:03
    我们编程中,通常都需要处理时间日期数据,这也是一种比较难于处理的数据类型,因为时间日期类型的结构相当复杂,并且还有一定的规则,如果定义的时候不符合规则,程序编译的时候就会出错。Visual Basic ...
  • vb曲线拟合

    2020-12-23 14:23:29
    展开全部我就给你贴出frm文件吧。其他的工程文件也贴不出。希望对你有用。VERSION 5.00Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"Object = "{F9043C88-... "COMDLG32.OCX"Begin VB.F...
  • 背景:机房个人版重构中,对于时间
  • vb.net控件

    千次阅读 2020-04-28 14:49:22
    vb.net 的 Label 控件 label(标签)控件用于显示文本,是设计应用程序界面时经常要用到的控件之一, 主要是用于显示其他控件名称,描述程序运行状态或标识程序运行的结果信息等 等,响应程序的事件或跟踪程序运行的...
  • vb如何实现换行换行符怎么使用?有两种方法:1。编写代码实现换行:label1.caption=“第一行内容”&vbcrlf&amp;“第二行内容”“vbcrlf是实现换行的回车...在VB中,当代码行太长时,语句可能会中断。规则是...
  • 学习VB.NET时,你可能会遇到VB.NET上传图片并DataGrid中显示的问题,这里将介绍VB.NET DataGrid显示问题的解决方法,这里拿出来和大家分享一下。一、程序功能当上传图片大小超过8K或格式不符时禁止上传,上传...
  • (我点之后,于vb.net跑出msgbox显示销量 雪纺杉:3) 我的网页是放在WebBrower里面的 ![图片说明](https://img-ask.csdn.net/upload/201805/20/1526788318_495562.png) 或是有任何方式都可以喔! 如果能,也请加QQ...
  • 以前一直做web开发,基本上是加或者css控制word-break:break-all;word-wrap:break-word;...很多朋友都会开发WinForm中遇到Label显示的内容太长,但却不能换行的问题.这里我总结了几种方法,供大家参考:  

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 7,542
精华内容 3,016
关键字:

vb在label显示数据