精华内容
下载资源
问答
  • 内容索引:VB源码,界面... VB6 在窗体菜单加入Radio单选按钮和Check复选按钮,平时我们已经见到过了,虽然比较小的应用,不过挺实用,用了会增加软件体验,为用户操作提供方便,Windows系统里就有,好像见惯不惯了。
  • [color=red]判断Check复选框是否被选中[/color] Check1.Value为1是选中,为0是没选中 [code="c"]If Check1.Value = 1 Then MsgBox "选中" End If[/code] [color=red]删除数组的一个...
    [color=red]判断Check复选框是否被选中[/color]

    Check1.Value为1是选中,为0是没选中

    If Check1.Value = 1 Then
    MsgBox "选中"
    End If


    [color=red]删除数组中的一个值[/color]

    比如数组xh中有10个值,现删除第5个值

    Dim tmp As Integer
    For tmp = 4 To 9
    xh(tmp) = xh(tmp + 1)
    Next


    [color=red]获得数组大小[/color]

    UBound(xh)

    [color=red]创建动态数组[/color]

    ReDim Preserve xh(UBound(xh) + 10) '变大后原有值不变,变小后则后边值会变没

    [color=red]创建一个返回数组型的函数[/color]

    返回数组型函数定义

    Public Function Load_XH(comText As String, xh() As String)
    xh(0) = 0
    xh(1) = 1
    xh(2) = 2
    End Function


    调用

    Dim xh(10) As String
    Call Load_XH(Combo1.Text, xh) '返回一个数组函数


    使用

    msgBox xh(1)

    [color=red]删除本地图片[/color]

    Kill ("D:\temp.jpg")

    黑色头发:http://heisetoufa.iteye.com/
    展开全文
  • 太冗余了....Private Sub Check1斜体_Click()If Check1斜体.Value = 1 ThenText1.FontItalic = TrueElse: Text1.FontItalic = FalseEnd IfEnd SubPrivate Sub Check2粗体_Click()If Check2粗...

    该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

    刚写的渣代码......太冗余了....

    Private Sub Check1斜体_Click()

    If Check1斜体.Value = 1 Then

    Text1.FontItalic = True

    Else: Text1.FontItalic = False

    End If

    End Sub

    Private Sub Check2粗体_Click()

    If Check2粗体.Value = 1 Then

    Text1.FontBold = True

    Else: Text1.FontBold = False

    End If

    End Sub

    Private Sub Command1_Click()

    End

    End Sub

    Private Sub Option1红_Click()

    Text1.ForeColor = vbRed

    End Sub

    Private Sub Option2黄_Click()

    Text1.ForeColor = vbYellow

    End Sub

    Private Sub Option318_Click()

    Option318.Value = True

    Text1.FontSize = 18

    End Sub

    Private Sub Option3蓝_Click()

    Text1.ForeColor = vbBlue

    End Sub

    Private Sub Option420_Click()

    Option420.Value = True

    Text1.FontSize = 20

    End Sub

    Private Sub Option4绿_Click()

    Text1.ForeColor = vbGreen

    End Sub

    Private Sub Option512_Click()

    Option512.Value = True

    Text1.FontSize = 12

    End Sub

    Private Sub Option616_Click()

    Option616.Value = True

    Text1.FontSize = 16

    End Sub

    展开全文
  • vb 开发项目使用vaspread 控件,但不知道这里的check box怎么用,就是想每一行有个check box,当选中后该行改变颜色
  • 代码实现的功能是:从指定的EXCEL文件抓取一些数据插入表控制点1指定的excel 要有sheet2sheet要有一个名为“upload”的文件代码如下: check sheets names must contain upload intCsheet = xlBook....

    代码实现的功能是:从指定的EXCEL文件中抓取一些数据插入表中

    控制点

    1指定的excel 中要有sheet

    2sheet中要有一个名为“upload”的文件

    代码如下:

     

    'check sheet's names must contain upload
        intCsheet = xlBook.Worksheets.Count
        If intCsheet = 0 Then
            MsgBox "The execl file " & strfilename & " has no data!"
            xlBook.Close (True) '
    关闭EXCEL工作簿
            xlExcel.Quit '
    关闭EXCEL
            Set xlExcel = Nothing '
    释放EXCEL对象
            insert_tepmtable = False
            Exit Function
        End If
        For intI = 1 To intCsheet
            If UCase(xlBook.Worksheets(intI).NAME) = "UPLOAD" Then
                Exit For
            End If
        Next
        If intI > intCsheet Then
            MsgBox "The execl file " & strfilename & " has no upload sheet !"
            xlBook.Close (True) '
    关闭EXCEL工作簿
            xlExcel.Quit '
    关闭EXCEL
            Set xlExcel = Nothing '
    释放EXCEL对象
            insert_tepmtable = False
            Exit Function
        End If
        Set xlSheet = xlBook.Worksheets("upload")
        'get excel's data
        With xlSheet
            For intJ = 2 To 65535
                If Len(Trim(.Cells(intJ, 1).Value)) <> 0 Then
                       strsql = "insert into tmp_uploadprice" & _
                            " values(" & CLng(.Cells(intJ, 1).Value) & _
                            ",'" & CStr(.Cells(intJ, 2).Value) & _
                            "',' '" & _
                            "," & CDbl(.Cells(intJ, 4).Value) & ")"
                            DbsBpcs.Execute strsql

                  EDN If

           NEXT

    展开全文
  • vb '給与〆支払条件 abc = Nothing abc = New ListViewItem.ListViewSubItem() Dim siharai_str As String = check_dbnull(rs.Fields("sime_str").Value) & "" & check_dbnull(rs.Fields(...

    vb

     				'給与〆支払条件
                    abc = Nothing
                    abc = New ListViewItem.ListViewSubItem()
                    Dim siharai_str As String = check_dbnull(rs.Fields("sime_str").Value) & "" & 			 		  check_dbnull(rs.Fields("siharai_str").Value)
                    abc.Text = siharai_str
                    Dim sime_siharai_str As String = set_sime_siharai_str(rs.Fields("ko_cd").Value)
                    If sime_siharai_str <> siharai_str Then
                        abc.BackColor = Color.LightPink
                        abc.ForeColor = Color.White
                    End If
                    lvi.SubItems.Add(abc)
    
    展开全文
  • 满意答案RX78102013.05.24采纳率:40%等级:12已帮助:10400人首先设置text1的multiline属性设置为true(允许多行显示,这点非常重要)然后在check1的click事件下写if check1.value=1 thentext1.text="您好"end if再在...
  • VB设置字体样式:字体加粗、字体下划线、删除线、斜体等样式的设置例子,对于美化和制作个性化的窗口文字,可起到很好的借鉴使用。实现时分别定义几个按钮,为按钮添加以下事件:  Private Sub Check1_Click()  ...
  • 用循环判断checkbox的值是真和假在把他们放到数据库里~ 回答者: ssq1314 - 助理 三级 9-14 15:01 检查.value属性就可以了。 ...Private Sub Check1_Click() ...If Check1.Value = ...ElseIf Check1.Valu...
  • VB6 在窗体菜单加入Radio单选按钮和Check复选按钮,平时我们已经见到过了,虽然比较小的应用,不过挺实用,用了会增加软件体验,为用户操作提供方便,Windows系统里就有,好像见惯不惯了。
  • vb中的前缀问题----标准代码书写

    千次阅读 2012-02-12 11:38:16
    我在编写模块时,常常碰到这样一种情况,就是要修改控件的名称, 不是很理解要修改的目的,而且刚刚开始时在名称里修改了,但是在代码窗口再敲写还是很不细心的敲写出来了全称。结果运行时弹出变量未定义,我又一...
  • 一般我们可能在 TextBox 的 MouseDown Event Check 是否按右键,若是,则设定出现 Popup Menu 程式如下: Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If ...
  • VB常用技巧合集

    2014-08-19 16:57:57
    VB常用技巧合集 chm全集,比如ActiveX .Exe ....DAO 得到存储过程返回值,VB程序处理随机事件,VB应用程序访问SQL Server方法探讨,VB应用程序中用DDE功能开发AutoCAD,按字母或数字顺序排列列表框的列表项……
  • 一、数值获取 通过.Input可以获得一个字节的数据(8bit),可以定义一个Variant型变量读取....‘用于最终存储和处理 ,假设串口接收数据缓冲区有两个字节; Dim Check As Byte ‘校验字节 ‘数据处理 Dat
  •  本例子主要包括了对VB基本控件元素Check、Option、Text、Label、Button的用法进行了演示,具分享出了具体实现某一功能的代码及设置方法,涉及到光标自动归位、清空文本框、判断用户输入是否正确,断用户选择了哪...
  • VB MSFlexGrid网格控件绑定Combox,Check,ListBox等窗体常用元素的实例,利用MSFlexGrid做的单元格输入示例,演示如何在MSFlexGrid单元格绑定下拉列表、复先框、单选框(Combox,Check,ListBox)等,以方便用户输入和...
  • 在.NET Framework之前的.NET Core,应用程序设置位于文件。 一个文件的所有设置(例如数据库连接,电子邮件设置等)以及每个设置都是字符串,需要将其转换为适当的类型(有关转换,请参见),另外缺少一些功能...
  • VB中编辑窗体登陆界面这个代码请问哪里出错了啊? 求解!!! Private Sub Command6_Click() If IsNull(Trim(Me.用户名)) Then DoCmd.Beep MsgBox ("请输入用户名!"), vbOKOnly + vbExclamation, ...
  • VB下CRC校验程序

    千次阅读 2010-06-08 12:18:00
    VB下CRC校验程序  计算机技术不断发展,现代工业,利用微机进行数据通讯工业控制应用也越来越广泛。传输距离、现场状况等诸多可能出现因素影响,计算机与受控设备之间通讯数据常会发生无法预测错误。...
  • 在窗体加入一个CheckBox控件,加入以下代码: Option Explicit Private Sub Form_Load() Check1.Caption = “开机启动本程序” Check1.Value = WinViler End Sub Private Sub Check1_Click() Dim My Set My = ...
  • VB的toolbar的用法

    千次阅读 2012-07-19 16:31:56
    1.toolbar需要check的按钮组,式样应都选为2,既tbrButtonGroup,且这些button的index必须连续,否则被视为不同的buttongroup; 2.如果button是check类型的,则按下时的value为tbrPressed,但如果是普通的button...
  • 全半角check正则

    2019-09-30 17:49:06
    如果C#需要日文的全半角转换,vb中有一个Strings.strConv()函数,但是需要大家引用Microsoft.VisualBasic.dll。 找这方面的东西很不好找,当初也找了很久,在这里贴出来,方便需要的人。 转载于:ht...
  • vb.net打开新的页面或跳转页面

    千次阅读 2013-06-21 14:39:43
    vb.net,经常会遇到页面跳转问题,即有两种打开页面的方式,第一种方式:就是用response.rredirect(),如:Response.Redirect("Check_Add.aspx?&Btn_Flag=" & Btn_Flag & "&Record_ID=" & ViewState("Record_...
  • VB6 class instancing

    2008-11-10 11:28:02
     在打开FileCheck代码窗口的同时,我们来看看它的属性窗口。  属性有Name、DataBindingBehaviour(用于将类和数据源相"绑定")、可持久性(用于控件,允许保存某个类的属性)以及实例。  当类名属性...
  • 这里只是个人对书题目的解答,并不代表最优代码。仅供参考。有哪里错误或者不足的地方还望指出,Thanks♪(・ω・)ノ 以及 不要脸地 求探讨求点赞。嘿嘿 这里使用的是《vb程序设计教程(第四版)——龚沛曾》: ...
  • VB编程资源大全(源码 网络)

    热门讨论 2007-10-17 22:54:27
    (73KB) 121,i012.zip 如何在vb中调用i/o口的例子(10KB) 122,i011.zip 演示连接/断开network(3KB) 123,i010.zip chat程序例子(12KB) 124,i009.zip 简单的邮件发送例子 (13KB) 125,i008....
  • 此贴用于收录各种在实际项目需要用到的语法,持续更新 1.查询一个进程是否开启 参考链接:...

空空如也

空空如也

1 2 3 4
收藏数 64
精华内容 25
关键字:

vb中check