精华内容
下载资源
问答
  • 太冗余了....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

    展开全文
  • MsgBox "数据已经导出到Excel。", vbInformation, "成功" Exit Function ErrHandler: '用户按了“取消”按钮 If Err.Number <> 32755 Then MsgBox "数据导出失败!", vbInformation, "失败" End If End ...
  • 3、我将显示地址直接提换如下语句中的fullpath Set xlBook = xlApp.Workbooks.Open("fullpath") 程序也能运行成功。 求大神指点一下迷津 Private Sub Command1_Click() Dim xlApp As Excel.Application...
  • VB6.0编译环境能打开excel ,但生成exe文件后,就报错![图片说明](https://img-ask.csdn.net/upload/201705/17/1495000293_517657.jpg) ``` Option Explicit Dim newxls As New Excel.Application Dim ...
  • vb.net怎么把datagrdview中的数据导出成excel文档 用是ACCESS数据库 一下是我写代码,发生了一些问题,请大神们看看,帮忙修改一下。 这是导出按钮单击事件 ''要先添加引用才能使用下列语句Microsoft.Office...
  • vb.net中的碎片发生器

    2006-02-23 09:05:59
    The first color‘s value should be smalled than the last color‘s value") Exit Sub End If For pY = 0 To NY - 1 Y = YMin + pY * (YMax - YMin) / (NY - 1) For pX = 0 To NX - 1 X = (XMin + pX * (XMax...
  • If Right(strPath, 1) <> "\" Then strPath = strPath & "\" '如果需要合并文件中的工作表数量小于1则退出 '如果需要合并文件中的工作表数量小于1则退出 If SheetCount '删除掉该路径下原来合并文件 If Dir...
  • 写了一个21点扑克牌程序,用VB.NET写,需要你找出其中bugs,尽可能多 找出,并写明错误原因 由于小弟写C#,对VB.NET实在不熟悉,还希望有经验前辈帮忙看看 小弟不胜感觉 代码一共有6个类 分别是 ...
  • 满意答案RX78102013.05.24采纳率:40%等级:12已帮助:10400人首先设置text1multiline属性设置为true(允许多行显示,这点非常重要)然后在check1click事件下写if check1.value=1 thentext1.text="您好"end if再在...

    满意答案

    RX7810

    2013.05.24

    采纳率:40%    等级:12

    已帮助:10400人

    首先设置text1的multiline属性设置为true(允许多行显示,这点非常重要)

    然后在check1的click事件下写

    if check1.value=1 then

    text1.text="您好"

    end if

    再在"check2的click事件下写

    if check2.value=1 then

    text1.text=text1.text & vbcrlf & "谢谢"

    end if

    你究竟要达到什么效果呢,点一个check显示下一个check?

    这样的话给你个示例,其他的照着弄就是了

    在check1的click下写:

    if check1.checked=true then

    text1=check1.caption & vbcrlf & check2.caption]

    建议你弄一个check的控件数组(选中一个,然后复制粘贴)

    然后再check的click事件下写

    if index mod 2= 0 then'双号

    text1=text1 & vbcrlf & check1(index).caption & vbcrlf & check1(index+1).caption

    end if

    找这种方法做就是了,自己在动脑经想想就能搞定了

    10分享举报

    展开全文
  • '提取实验报告中的第一个表格中的内容 st_1 = doc1.Tables(1).Cell(4, 1).Range.Text st_2 = doc1.Tables(1).Cell(5, 1).Range.Text st_3 = doc1.Tables(1).Cell(6, 1).Range.Text '连接数据库 Sid = Mid(File...
  • 在程序编制和调试过程,我从中学到了很多有用方法,比如通过本次设计,我更深刻体会到了VB系统方便与实用。在课程设计过程,我对课本上知识进行了复习,从中找出了不少盲点,由衷地感觉到学习过程...
  • VB6升级到VB2010之二:控件属性升级~

    千次阅读 2012-11-15 11:28:08
    VB6到VB2010除了功能的...1. Option的Value 属性更改为Checked,也就是说原来的 Option1.Value 在VB2010,就应该写成 Option1.Checked 他们的值均是Boolean, 可以为True, 也可以为False, 但是很明显Checked更

    从VB6到VB2010除了功能的强大,也可以看到Microsoft对于细节的重视,例如,不少控件的属性就做了细微的调整。

    如:

    1. Option的Value 属性更改为Checked,也就是说原来的

    Option1.Value

    在VB2010中,就应该写成

    Option1.Checked

    他们的值均是Boolean, 可以为True, 也可以为False, 但是很明显Checked更符合选中的意思。

    2. Label的Caption属性更改为Text, 也就是说原来的

    Label1.Caption

    在VB2010中,就应该写成

    Label1.Text

    * 不过,这个更改个人到不是很赞成。因为原有的Caption类的属性都是不可以在运行状态更改的,而Text属性即是可以在运行状态修改的,二者有明显的区分。例如: Label1.Caption, Frame1.Caption和Text1.Text, Combo1.Text。

    3. Me.Caption升级到Me.Text。

    4. Me.hwnd 升级为Me.Handle 但是因为变量升级,所以要写成Me.Handle.ToInt32。

    5. List.Selected 已经升级为List.SetSelected ,同时语法略有修改

    原来的List.Select(index)=True

    现在要写成 List.SetSelect(index, True)

    6. Combo1.ListIndex 升级为Combo1.SelectedIndex。 此升级使表意更清晰,因为Combo Box的ListIndex确实就是Selected 的Index。

    7. Image.Picture 升级为Image.Image ,感觉不升级的好,但是。。。ms是老大,他说了算。

    8. MSFlexGrid1.ColWidth(0) = 300 升级为: MSFlexGrid1.set_ColWidth(0, 300)

    9. Check1.Value 升级为:Check1.CheckState

    10. Me.Move竟然被升级成Me.SetBounds,好难懂。。。

     

    展开全文
  • 一.optionbutton与checkbox ...2.判定option按钮是否被选中,需要判定option(i).value的值,若为True,则选中,若为False,则未被选中,或者根据option.item(i)所得出结果,同理,为True选中,为Fa...

    一.optionbutton与checkbox
    1.在同一个窗体内增添了多个单选框,系统默认每次只选中一个单选按钮,若是选择一个框架Frame,那么则是在这个框架之内,每次选中一个单选按钮。
    2.判定option按钮是否被选中,需要判定option(i).value的值,若为True,则选中,若为False,则未被选中,或者根据option.item(i)所得出的结果,同理,为True选中,为False则未选中。
    3.若是创建了option控件数组,那么控件数组的个数为option.count。
    4.列表框列表项目从0开始,而计数的个数从1开始进行计数。
    5.optionbox与checkbox同理

    二.combobox与listbox
    1.要知道combobox与listbox项目个数,为combobox.listcount来确定,而项目名单为combobox.LIST(I)来进行确定。
    2.listbox列表框的添加删除用一段程序表示
    Private Sub Form_MouseDown(Button As Integer, _
    Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
    Text1.Text = InputBox(“请输入要添加的项目”)
    List1.AddItem Text1.Text
    End If

    If Button = 2 Then
        Text1.Text = InputBox("请输入要删除的项目")
        For i = 0 To List1.ListCount
            If List1.List(i) = Text1.Text Then
                List1.RemoveItem i
            End If
        Next i
    End If
    

    End Sub

    程序中单击鼠标左键添加列表项目,单击鼠标右键删除列表项目

    展开全文
  • VB试题.doc

    2012-12-15 21:16:57
    8、在VB中,用来描述对象外部特征量称之为对象_属性__。 9、为使某窗口中命令按钮“取消(C)”具有如下特性:按“Alt+C”键或按 “ESC” 键,均可代替用鼠标单击该按钮操作,应设置该按钮Caption属性...
  • vbAddin_ComUnitHelp(vb测试工具ComUnit辅助工具,可以方便自动生成case声明等) 1.例如函数main1调用了一个下位函数fun1,则需要在源代码中的两个地方插入代码: (1)main1调用fun1上一步插入代码isShield_...
  • vb与数据库(别人

    千次阅读 2005-06-16 01:46:00
    数据库可以在程序自动建立,代码给你粘过来,你可以做参考:Dim sjkname As String, tzgs As Integer, filename As Stringsjkname = Label2.CaptionIf Option2.Value = True Thentzgs = Combo2.TextElsetzgs = 7End ...
  • vb Script参考文档

    2009-07-28 22:13:02
    Value 属性 返回在搜索字符串已发现匹配值或正文。 VarType 常数 定义变体子类型常数列表。 VarType 函数 返回标识变体子类型数值。 VBScript 常数 在 VBScript 提供不同种类常数。 Weekday 函数 ...
  • '向表格写入具体内容 For Each row In dt.Rows rowindex = rowindex + 1 colindex = 0 For Each col In dt.Columns colindex = colindex + 1 xlApp.Cells(rowindex, colindex) = row(col.ColumnName)...
  • ---- 在VB6.0除了原来Clear、Remove 方法外(很奇怪,为什么微软在VB5.0 只提供这两种方法,而没有提供Add方法,因为没有Add,这两种方法也就没什么用处), 增加了Add方法,该方法就是用于动态加载控件: ...
  • 我希望效果是,在VB界面输入查询关键词,关键词是用户名中的任意一个或者多个字符, 例如关键词是a,那么查询结果显示在list1就应该是,abc、abcdefg、eafg,3个用户名。 例如关键词是c,那么查询结果显示在list...
  • vb贪食蛇源代码

    2012-04-21 16:52:54
    vb小游戏定义蛇运动速度枚举值 Private Enum tpsSpeed QUICKLY = 0 SLOWLY = 1 End Enum '定义蛇运动方向枚举值 Private Enum tpsDirection D_UP = 38 D_DOWN = 40 D_LEFT = 37 D_RIGHT = 39 End Enum '...
  • optIC2.Value = True '设置不支持IC卡 txtRuntime.Text = "" '清除“运行时间”文本框 txtCompany.Text = "" '清除“公交公司”文本框 txtMemo.Text = "" '清除“备注”文本框 Else If Not CheckInput Then ...
  • VB自动关机源码.rar

    2009-10-23 11:58:28
    Private IsToday As Boolean = True '判断是否是今天变量 Private delay As Integer '延时多少秒放关机 Private lastTime As Integer '关机倒计时 Private action As String '关机或重启或注销 Private ...
  • VB.NET】自定义控件(一)属性说明 Bindable 布尔型,为true时表示VS.NET将在数据绑定对话框显示该控件  Browsable 布尔型,表示该控件是否在设计视图显示?  Category 当...
  • “System.Runtime.InteropServices.COMException”类型未经处理异常在 Microsoft.VisualBasic.dll 发生 其他信息: 类型不匹配。 (异常来自 HRESULT:0x80020005 (DISP_E_TYPEMISMATCH)) 说是调用目标...
  • 与百例79-80例相类似 ... If chk1.Value = 1 Then '若复选框chk1值为1 Label2.FontUnderline = True '标签框中的文字加下划线 Else '否则 Label2.FontUnderline = False '标签框中的文字不加下划线 End If En...
  • FrmMain.DBGA.Columns("部门").Button = True End If End Sub Private Sub CmdDel_Click() DataA.ReadOnly = False DataA.Recordset.Delete DataA.Recordset.MoveNext If DataA.Recordset.EOF Then Data...

空空如也

空空如也

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

vb中true的value