精华内容
下载资源
问答
  • VB语言

    2012-01-16 01:41:09
    VB语言 2009年11月07日            浏览器  Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)  Label2.ForeColor = vbBlack  End Sub  Private ...
    VB语言 
    2009年11月07日
      
      
      
      
      
       浏览器
      Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
      Label2.ForeColor = vbBlack
      End Sub
      Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
      Label2.ForeColor = vbRed
      End Sub
      Private Sub Label2_Click()
      Shell "explorer http://www.finallylly.ys168.com"
      End Sub
      Private Sub Timer1_Timer()
      If Label2.ForeColor = vbRed Then
      Label2.ForeColor = vbBlack
      End If
      End Sub
      Private Sub Form_Load()
      Combo1.Top = Label1.Height
      Combo1.Left = 0
      WebBrowser1.Top = Combo1.Top + Combo1.Height
      WebBrowser1.Left = 0
      Form_Resize
      StatusBar1.Style = sbrSimple
      ProgressBar1.ZOrder
      End Sub
      Private Sub Form_Resize()
      On Error GoTo a
      Combo1.Width = Form1.Width - 100
      WebBrowser1.Width = Combo1.Width
      WebBrowser1.Height = Form1.Height - Combo1.Height - 1000
      ProgressBar1.Top = Me.Height - StatusBar1.Height - 330
      ProgressBar1.Left = 0.25 * StatusBar1.Width
      ProgressBar1.Width = 0.75 * Me.Width - 250
      a:
      End Sub
      Private Sub Combo1_Click()
      WebBrowser1.Navigate Combo1.Text
      End Sub
      Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
      Dim I As Long
      Dim existed As Boolean
      If KeyCode = 13 Then
      WebBrowser1.Navigate Combo1.Text
      For I = 0 To Combo1.ListCount - 1
      If Combo1.List(I) = Combo1.Text Then
      existed = True
      Exit For
      Else
      existed = False
      End If
      Next
      If Not existed Then
      Combo1.AddItem (Combo1.Text)
      End If
      End If
      End Sub
      Private Sub WebBrowser1_TitleChange(ByVal Text As String)
      Combo1.Text = WebBrowser1.LocationURL
      End Sub
      ----------------------------------------------------------------------------------------------
      播放器
      Private Sub Command1_Click()
      WindowsMediaPlayer1.URL = ""
      End Sub
      Private Sub Command2_Click()
      WindowsMediaPlayer1.URL = Text1.Text
      End Sub
      Private Sub Command3_Click()
      Dim Path As String
      Path = Environ("SystemRoot") '路径
      Call Shell(Path & "\system32\notepad.exe C:\Documents and Settings\Administrator\桌面\1.txt") 'fd
      End Sub
      Private Sub fileopen_Click()
      Dim Mediafile As String
      CommonDialog1.ShowOpen
      Mediafile = CommonDialog1.FileName
      MediaPlayer1.FileName = Mediafile
      MediaPlayer1.displaysize = mpdefaultsize
      Form2.Height = MediaPlayer1.Height + 800
      Form2.Width = MediaPlayer1.Width + 120
      End Sub
      Private Sub F_Load()
      MediaPlayer1.Move 0, 0
      MediaPlayer1.Width = Form2.ScaleWidth
      MediaPlayer1.Height = Form2.ScaleHeight
      CommonDialog1.Filter = "影像资料(*.avl;*.mpg)|*.avi;*mpg"
      End Sub
      Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
      End Sub
      Private Sub 点击访问作者网站_Click()
      MsgBox "网站:finallybad@163.com欢迎访问"
      End Sub
      Private Sub double_Click()
      MediaPlayer1.displaysize = mpdoublesize
      Form2.Width = MediaPlayer1.Width + 120
      Form2.Height = MediaPlayer1.Height + 800
      End Sub
      Private Sub fileexit_Click()
      End
      End Sub
      Private Sub normal_Click()
      MediaPlayer1.displaysize = mpdefaultsize
      Form2.Width = MediaPlayer1.Width + 120
      Form2.Height = MediaPlayer1.Height + 800
      End Sub
      透明窗口
      Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
      Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
      Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
      Private Const WS_EX_LAYERED = &H80000
      Private Const GWL_EXSTYLE = (-20)
      Private Const LWA_ALPHA = &H2
      Private Const LWA_COLORKEY = &H1
      Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
      Private Const HWND_TOPMosT = -1
      Private Const SWP_NOMOVE = &H2
      Private Const SWP_NosIZE = &H1
      Private Sub Form_Load()
      Me.BackColor = RGB(88, 88, 88)
      SetWindowPos Me.hWnd, HWND_TOPMosT, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NosIZE
      Dim rtn As Long
      BorderStyler = 0
      rtn = GetWindowLong(hWnd, GWL_EXSTYLE)
      rtn = rtn Or WS_EX_LAYERED
      SetWindowLong hWnd, GWL_EXSTYLE, rtn
      SetLayeredWindowAttributes hWnd, RGB(88, 88, 88), 0, LWA_COLORKEY
      End Sub
    展开全文
  • vb编程语言中怎么通过获取一个变量的值去算它在数组中下标的integer值?获取下标integer值的代码怎么思路?
  • VB语言基础

    千次阅读 2013-08-28 13:19:24
    一 注释 '要注释掉的内容 Rem 要注释掉的内容 二 续行符:空格加一个下划线...Byte(字节型)、Integer(整型)、Long(长整型)、Single(单精度浮点型)、Double(双精度浮点型)和Currency(货币型) 字符串类型

    一 注释
    '要注释掉的内容
    Rem 要注释掉的内容

    二 续行符:空格加一个下划线( _)
    例:
    Text1.Text = _
    "VB原来如此简单易学"

    三 变量类型(变量名不区分大小写)
    数据类型
    数值型数据类型:
    Byte(字节型)、Integer(整型)、Long(长整型)、Single(单精度浮点型)、Double(双精度浮点型)和Currency(货币型)
    字符串类型:String
    日期:Date
    布尔型:Boolean
    变体型:Variant

    四 变量声明
    Dim变量名 AS 数据类型
    Dim变量名类型符号
    例如:
        Dim Nuber As Integer
        Dim Count As Single
        Dim Name as String
    等同于
        Dim Number%
        Dim Count!
        Dim Name$
    等同于
     Dim Number As Integer, Count As Single,  Name As String

    注意:
    如果忽略了Dim语句中的As子句,则VB将变量的类型认为是变体型。
    默认字符串变量是不定长的,定长可以这样写:Dim变量名As String*长度
    例:
    Dim Name As Strring*50
    也可以使用Static代替Dim,将变量声明为静态的局部变量


    五 常量
    Const<常量名>[As类型]=常量值
    As子句是可选的,它用来说明常量的数据类型,如果省略,则数据类型由表达式决定。
    例:
    Const pi As Double=3.14159265358979
    Const Str="ABCDEF"
    Const Str=(2+3) * 7

    注意:
    常量声明中不能使用函数


    六 运算符
    算术运算符:加+、减-、乘*、除/、正处\、求余Mod、指数^
    关系运算符:等于=、大于>、小于<、大于等于>=、小于等于<=、不等于<>
    逻辑运算符:取反Not、与And、或Or、异与Xor、等价Eqv、蕴含Imp(真假时为假,其他为真)
    字符串运算符:&和+(都是字符串拼接)

    注意:变量名与&之间一定要加一个空格。
    "&"运算符会自动将非字符型的数据转换成字符串后再进行连接
    "+"运算符在连接字符串时不能自动转换,非字符串类型则报错


    七 数组
    一维数组
    Dim 数组名(下标)[As类型]
    例:
    Dim A(10) As Integer 声明整形数组A,有11个元素,下标从0到10
    Dim B(-3 To 5) As String*3 声明字符串型数组,有9个元素,下标从-3到5,每个元素最多存放3个字符

    多维数组
    Dim 数组名(下标1[,下标2...])[As 类型]
    例:
    Dim C(-1 To 5,4) As Long 声明长整形数组C,第一维长度为6,下标从-1到5,第二维长度为5,下标从0到4


    八 程序结构
    1 顺序结构

    2 选择结构
    if<表达式>Then
    <语句块>
    End if

    If<表达式>Then
    <语句块1>
    Else
    <语句块2>
    End If

    If<表达式1>Then
    <语句块1>
    E1seIf<表达式2> Then
    <语句块2>
    Else
    <语句块n>
    End If

    Select Case<变量>
    Case<值列表1>
    <语句快1>
    Case<值列表2>
    <语句快2>
    ……
    Case<值列表n-1>
    [Case Else
    <语句快n>]
    End Select

     

     

     

    3 循环结构
    For<循环变量>=<初值>To<终值>[Step<步长>]
      <语句块>
      [Exit For]
    Next<循环变量>

    例如:
    For i=1 To 8 Step 1
      print"loop"& i
    Next i

     

    Do While<表达式>
    循环体
    [Exit Do]
    Loop


    Do
    循环体
    [Exit Do]
    Loop While<表达式>

    循环体
    [Exit Do]
    Loop

    九 子过程

    子过程的形式如下:
    [Private][Public][Static]Sub<过程名>[(参数表)]
    <语句>
    [Exit Sub]
    <语句>
    End Sub

    具体说明如下:
    Sub是子过程的开始标记,
    End Sub是子过程的结束标记,
    <语句>是具有特定功能的程序段,
    Exit Sub语句表示退出子过程


    调用:
    使用Call语句:Call<过程名>(参数表)
    直接使用过程名:<过程名>[<参数表>]


    十 函数

    [Private][Public][Static]Function<函数名>[(参数表)][As类型] 
    <语句>
    [Exit Function]
    <语句>
    End Function

    注意:
    参数的传递方式有两种:传址和传值,其中传址也被称为引用,
    VB默认的参数传递方式。如果在定义过程时,在形参前加上关键字ByVal则参数传递方式变为传值

    展开全文
  • vb语言

    2014-08-22 18:25:54
    数值(Numeric)数据类型 用于处理数值型数据,包括:  整型(Integer)表示整数  长整型(Long)表示整数,但表示的数据范围更大  单精度型(Single)表示带有小数的实数(最多7位有效数字)  双精度型

      就出现了不同的数据类型,不同类型的数据的取 值范围、所适用的运算是不同的,在计算机内存 中占有的存储空间也不同。在编制程序时,要根 据要表现的数据,选择合适的数据类型。 数值(Numeric)数据类型 用于处理数值型数据,包括:  整型(Integer)表示整数  长整型(Long)表示整数,但表示的数据范围更大  单精度型(Single)表示带有小数的实数(最多7位有效数字)  双精度型(Double)也表示带有小数的实数(最多15位有效数字)  货币型(Currency)专门处理货币的数据类型,保留小数点右边 4位和小数点左边15位  字节型(Byte)用来存储二进制数 在VB定义的各种数据类型中,按照处理数据种 类的不同,可将起其分为三类 非数值数据类型 用于处理非数值数据

    展开全文
  • C语言和VB语言比较.doc

    2020-12-01 10:12:46
    比较项目 C VB 基本数据类型 int, long int, float, double bool(0False, OtherTrue) char, 指针 Byte, Integer, Long, Single, DoubleBooleanDateStringVariant 字符串 字符以单引号)括住 字符串以双引号括住以\0...
  • Option Explicit ...Const MaxLoginTimes As Integer = 3 Private Sub cmdLogin_Click()  Static loginTimes As Integer  loginTimes = loginTimes + 1 If loginTimes  On Error GoTo ppp  Dim Cn

    Option Explicit
    Const MaxLoginTimes As Integer = 3
    Private Sub cmdLogin_Click()
        Static loginTimes As Integer
        loginTimes = loginTimes + 1
    If loginTimes < MaxLoginTimes Then
        On Error GoTo ppp
        Dim Cn As Connection
        Dim Rs As Recordset
        Dim strSQL As String
        
        Set Cn = New Connection
        Set Rs = New Recordset
        Cn.ConnectionString = " provider=Microsoft.Jet.OLEDB.3.51;Data Source=C:\Users\jf\Desktop\TestExample.mdb"
        Cn.Open
        Rs.ActiveConnection = Cn
        strSQL = "select UserPassword from UserInformation where UserID= '" & Me.txtUserID.Text & "'"
        Rs.Open (strSQL)
        If Rs.EOF = True Then
            MsgBox txtUserID.Text & "不存在"
            Me.txtUserID.SetFocus
            Me.txtUserID.SelStart = 0
            Me.txtUserID.SelLength = Len(Me.txtUserID.Text)
        Else
           If Rs.Fields("UserPassword").Value = Me.txtPassword.Text Then
                MsgBox "登录成功"
                Unload Me
                'frmNew.show
           Else
            MsgBox "密码错误"
           End If
         End If
            
    ppp:
        Cn.Close
    Else
        MsgBox "亲,您的输入次数超过允许的最大次数", vbCritical, "登录"
    End If
    End Sub


    展开全文
  • DoEvents 函数会返回一个 Integer,以代表 Visual Basic 独立版本中打开的窗体数目,例如,Visual Basic,专业版,在其它的应用程序中,DoEvents 返回 0。 DoEvents 会将控制权传给操作系统。当操作系统处理完...
  • 应用VB语言程序生成十个随机数

    千次阅读 2016-04-14 16:15:56
    1.在窗体的适当位置创建一个commandbutton,并在其属性窗口中将caption改为“生成数”。 2.在窗体中双击“生成数”,并在弹出的...Dim n As Integer Dim wzs(10) As Integer n = 1 While n wzs(n) = Int(Rnd * 1
  • VB程序语言3

    2016-04-14 16:46:36
    Option Explicit Dim i As Integer, sum As Integer Private Sub Command1_Click() Cls Font.Size = 70 Static i As Integer i = i + 1 Print i End Sub
  • vb.net语言之集合练习

    2019-07-24 19:12:44
    vb.net语言的基础知识终于被我拿下了 ,以下是今天所做练习的源码:Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim x As New Collection Dim i As ...
  • VB程序语言1

    2016-04-14 16:24:52
    Private Sub Command1_Click() Cls Font.Size = 70 Dim arr(5) As Integer For i = 1 To 5 arr(i) = i Next For Each t In arr Print t Next End Sub
  • Dim myuser(1 To 100, 1 To 2) As StringDim knum As IntegerPrivate Sub Check1_Click() 注册Command3.Enabled = Check1.ValueCommand4.Enabled = Check1.ValueEnd SubPrivate Sub Command1_Click() 登陆If knu
  • Dim datan As Integer '电压值的数字量形式 Dim dataV As Single '电压实际值 Dim byteToRead As Int16 = SerialPort1.BytesToRead '(读取缓冲区的字节长度) Dim Inbyte(byteToRead) As Byte Dim bytesRead As ...
  • c#&vb两种语言语法的简要介绍

    千次阅读 2008-09-04 23:07:00
    c#&vb两种语言语法的简要介绍1.变量声名 C# 语法 int x; String s; String s1, s2; Object o; Object obj = new Object(); public String name; VB语法 Dim x As Integer Dim s As String Dim s1, s2 As String Dim ...
  • 第三章 VB程序设计语言基础

    千次阅读 2007-02-02 17:25:00
    VB程序设计语言基础一 VB中的数据与运算二 标准函数三 三种基本结构(顺序,判定,循环)一 VB中的数据与运算3.1.1 数据类型3.1.2 变量与常量3.1.3 运算符和表达式3.1.4 数组3.1.1 数据类型数值数据类型(1) Integer型和...
  • vb.net 获取系统语言

    千次阅读 2008-05-26 09:51:00
    Private Declare Function GetSystemDefaultLCID Lib "kernel32 " () As Long Private Function GetOSLCID() As Integer Dim sysLCID As Long sysLCID = GetSystemDefaultLCID
  • 鼠标移动痕迹 C#,Delphi,VB,VB.net四种语言版本(附窗体透明)-思路和源代码(1) 这篇文章介绍了鼠标痕迹四语言版本中的VB版本,接下来介绍Delphi版本。 思路还是一样的,一个窗体一个Timer Var中同样四个变量 size:...
  • c#&vb两种语言语法的简要介绍 www.chinacs.net2001-6-2 12:45:00中文C#技术站 1.变量声名 C# 语法 int x; String s; String s1, s2; Object o; Object obj = new Object();... VB语法 Dim x As Integer Dim s As Stri
  • public function d_to_b(byval dec as long) as string do d_to_b = dec mod 2 & d_to_b dec = dec / 2 loop while dec end function public function b_to_d(byval bin as string) as integer
  • vb.net总结

    热门讨论 2018-01-25 16:41:21
    前言:  Vb .net 是一种.net语言将.NET Framework和公共语言运行库的强大功能与... VB.NET中的一切都是一个对象,包括所有的基本类型(Short,Integer,Long,String,Boolean等)和用户定义的类型,事件,甚至是
  • 在做VC与vb程序间互相调用,需要注意两种语言不同编译器对数据类型的定义区别,此时两者数据类型的对应关系就显得十分的重要,对应关系以及声明方式如下所示。 VC++ VB short Integer int ...
  • VC++ 与VB 数据类型对应关系

    千次阅读 2013-12-23 03:47:49
     在做VC与vb程序间互相调用,需要注意两种语言不同编译器对数据类型的定义区别,此时两者数据类型的对应关系就显得十分的重要,对应关系以及声明方式如下所示。 VC++ VB short ...
  • 'VB语言版俄罗斯方块'Totoo、Aoo34智造(一个人的两个名字),一些方块,很多计算 Const WN As Integer = 10, HN As Integer = 20Const Boxl As Integer = 372, BoxNum As Integer = 200 Private Sub Combo1_...
  • 第二章 VB语言基础 一、基本数据类型 1.字符型 Private A As String //声明字符型变量 A = "VB语言基础" A = Right(A,3) //用right取右边三个字符输出 MsgBox A //输出A End Sub 2.数值型 整数型 ...

空空如也

空空如也

1 2 3 4 5
收藏数 91
精华内容 36
关键字:

vb语言integer