-
vb改变字形的代码是什么_求VB中调整字体颜色代码
2020-12-31 09:25:31太冗余了....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大神协助!将VB界面的MSFlexGrid中的数据导出到Excel指定的单元格
2017-11-23 09:39:06MsgBox "数据已经导出到Excel中。", vbInformation, "成功" Exit Function ErrHandler: '用户按了“取消”按钮 If Err.Number <> 32755 Then MsgBox "数据导出失败!", vbInformation, "失败" End If End ... -
VB6中APP.path的用法问题
2018-12-22 08:30:313、我将显示的地址直接提换如下语句中的fullpath Set xlBook = xlApp.Workbooks.Open("fullpath") 程序也能运行成功。 求大神指点一下迷津 Private Sub Command1_Click() Dim xlApp As Excel.Application... -
VB中引用EXCEL填表格,生成的EXE文件报错
2017-05-17 05:50:40在VB6.0编译环境能打开excel ,但生成exe文件后,就报错 ``` Option Explicit Dim newxls As New Excel.Application Dim ... -
vb.net中怎么把datagrdview中的数据导出成excel文档 ACCESS数据库求源代码!
2016-01-12 02:29:22vb.net中怎么把datagrdview中的数据导出成excel文档 用的是ACCESS数据库 一下是我写的代码,发生了一些问题,请大神们看看,帮忙修改一下。 这是导出按钮的单击事件 ''要先添加引用才能使用下列语句Microsoft.Office... -
vb.net中的碎片发生器
2006-02-23 09:05:59The 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... -
vb.net 读取多个excel表中的数据填到新建的excel表中,
2015-03-25 00:35:39If Right(strPath, 1) <> "\" Then strPath = strPath & "\" '如果需要合并文件中的工作表数量小于1则退出 '如果需要合并文件中的工作表数量小于1则退出 If SheetCount '删除掉该路径下原来的合并文件 If Dir... -
【求助笔试题]】 找出VB.NET写的21点扑克牌程序中的问题
2020-01-19 17:42:21写了一个21点扑克牌的程序,用VB.NET写的,需要你找出其中的bugs,尽可能多 的找出,并写明错误原因 由于小弟写C#的,对VB.NET实在不熟悉,还希望有经验前辈帮忙看看 小弟不胜感觉 代码一共有6个类 分别是 ... -
sql vb xml 换行_VB中文本框换行--------急!!!
2020-12-31 05:54:57满意答案RX78102013.05.24采纳率:40%等级:12已帮助:10400人首先设置text1的multiline属性设置为true(允许多行显示,这点非常重要)然后在check1的click事件下写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分享举报
-
VB6.0中当操作Word(以docx结尾的)时候会出现实时错误‘4198’
2016-03-21 13:23:39'提取实验报告中的第一个表格中的内容 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课程设计
2012-12-26 19:54:28在程序的编制和调试过程中,我从中学到了很多有用的方法,比如通过本次设计,我更深刻的体会到了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,好难懂。。。
-
VB中关于单选框(optionbutton)复选框(checkbox)组合框(combobox)列表框listbox
2019-02-18 15:54:30一.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 IfIf 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:578、在VB中,用来描述对象外部特征的量称之为对象的_属性__。 9、为使某窗口中的命令按钮“取消(C)”具有如下特性:按“Alt+C”键或按 “ESC” 键,均可代替用鼠标单击该按钮的操作,应设置该按钮的Caption属性... -
vbAddin_ComUnitHelp(vb测试工具ComUnit的辅助工具,可以方便的自动生成case声明等)
2009-08-20 17:30:22vbAddin_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:02Value 属性 返回在搜索字符串中已发现匹配的值或正文。 VarType 常数 定义变体子类型的常数列表。 VarType 函数 返回标识变体子类型的数值。 VBScript 常数 在 VBScript 中提供不同种类的常数。 Weekday 函数 ... -
vb.net 导出Excel后,格式要固定行的高度及数字转文字-线上等
2019-04-27 13:07:09'向表格中写入具体内容 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动态加载ActiveX控件漫谈
2012-09-29 17:13:46---- 在VB6.0中除了原来的Clear、Remove 方法外(很奇怪,为什么微软在VB5.0中 只提供这两种方法,而没有提供Add方法,因为没有Add,这两种方法也就没什么用处), 增加了Add方法,该方法就是用于动态加载控件的: ... -
求助 VB 数据库 模糊查询access
2016-01-12 09:18:44我希望的效果是,在VB界面输入查询关键词,关键词是用户名中的任意一个或者多个字符, 例如关键词是a,那么查询结果显示在list1的就应该是,abc、abcdefg、eafg,3个用户名。 例如关键词是c,那么查询结果显示在list... -
vb贪食蛇源代码
2012-04-21 16:52:54vb小游戏定义蛇的运动速度枚举值 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 '... -
基于VB6.0 公交查询系统上位机
2015-01-21 13:11:00optIC2.Value = True '设置不支持IC卡 txtRuntime.Text = "" '清除“运行时间”文本框 txtCompany.Text = "" '清除“公交公司”文本框 txtMemo.Text = "" '清除“备注”文本框 Else If Not CheckInput Then ... -
VB自动关机源码.rar
2009-10-23 11:58:28Private IsToday As Boolean = True '判断是否是今天的变量 Private delay As Integer '延时多少秒放关机 Private lastTime As Integer '关机的倒计时 Private action As String '关机或重启或注销 Private ... -
【VB.NET】自定义控件(一)属性说明
2011-01-06 17:12:00【VB.NET】自定义控件(一)属性说明 Bindable 布尔型,为true时表示VS.NET将在数据绑定对话框中显示该控件 Browsable 布尔型,表示该控件是否在设计视图中显示? Category 当... -
vb.net操作word最后一步求解
2015-01-10 10:24:26“System.Runtime.InteropServices.COMException”类型的未经处理的异常在 Microsoft.VisualBasic.dll 中发生 其他信息: 类型不匹配。 (异常来自 HRESULT:0x80020005 (DISP_E_TYPEMISMATCH)) 说是调用的目标... -
VB工程--百例81--字体演示
2012-02-07 11:38:00与百例79-80例相类似 ... If chk1.Value = 1 Then '若复选框chk1的值为1 Label2.FontUnderline = True '标签框中的文字加下划线 Else '否则 Label2.FontUnderline = False '标签框中的文字不加下划线 End If En... -
VB人事管理系统毕业设计及论文
2010-01-11 12:37:45FrmMain.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...