55问答网
所有问题
当前搜索:
vb中forecolor
请教各位
VB
控件MSHFGIRD的详细属性说明
答:
ForeColr Ole_Color 设置/返回网格非固定单元使用的前景色
ForeColor
Band Array/Ole_Color 设置/返回网格各BAND的前景色ForeColorFixed Ole_Color 设置/返回网格固定单元的前景色.ForeColorHeader Array/Ole_Color 设置/返回网格头部单元的前景色ForeColorSel Ole_Color 设置/返回设置单元的前景色FormatString String ...
vb
大神求解答,急
答:
color 可选的。Long (长整型数),画线时用的 RGB 颜色。如果它被省略,则使用
ForeColor
属性值。可用 RGB 函数或 QBColor 函数指定颜色。B 可选的。如果包括,则利用对角坐标画出矩形。F 可选的。如果使用了B 选项,则 F 选项规定矩形以矩形边框的颜色填充。不能不用 B 而用 F。
VB
里面怎么画矩形?
答:
语法:object.Line [Step] (x1, 1) [Step] (x2, y2), [color], [B][F]如:Me.Line (100,100)-(600,600),
vb
red, bf 加B这个参数就是矩形,加F就是用就边框颜色填充 补充:Color参数就是边框颜色,如果省略,就用对象的
ForeColor
(前景色,就是字体的颜色) 属性值 ...
VB
编程。用select case多分支语句完成 某高校的学生学号由5位数构成...
答:
s, 3, 1) Select Case (s1) Case "0" Text2 = "博士生" Case "1" Text2 = "硕士生" Case "2" To "9" Text2 = "本科生" Case Else Text2 = "未识别" End SelectEnd SubPrivate Sub Form_Load() Label1.Caption = "" Label1.
ForeColor
=
vb
Blue ...
VB
小于数值 text输入的字体颜色自动变红,怎么写
答:
使用Text1的Change事件即可实现,代码如下:Private Sub Text1_Change()Dim K As Single K = Val(Text1.Text)If K > 15 Then Text1.
ForeColor
= &HFF '大于15显示红色 ElseIf K <= 15 And K >= 5 Then Text1.ForeColor = &H0 '5到15之间显示黑色 ElseIf K < 5 Then Text1...
vb
中出先实时错误“424”,怎么回事
答:
你的FORM
里
有COMMAND1 COMMAND2 COMMAND3 TEXT1 LABEL1 LABEL2 LABEL3 这么几个控件名称 那请你检查下 在窗体上你有没有"画"出这几个控件 不用在CAPTION中输入的 label 你输入的是“lable" = =!
VB
运行后 单击COMMAND1 会在LABEL1的CAPTION 中显示TEXT1中的内容与"同学,祝你进步"的连接字符...
在
vb
调整命令按钮字体颜色的语言,急
答:
VB6按钮只能改背景色,不能改前景色,如果一定要改的话,需要大量的API函数和代码 ,有一个变通的方法,就是自己做一个按钮的图形文件,将按钮的Style属性设置为1 - Graphical,Picture属性设置为图片文件 ,见图:
关于VB里
绘制矩形的问题
答:
If Not drawing Then [这里为什么这里多了一个Not,后面的几个IF语句都没有Not的?] :not就是否的意思,或者说不什么什么,在这里就是没有drawing xp1 = X: yp1 = Y [这里定义坐标为什么是用冒号:的,而不是用分号;的?:这是
VB
的规定,写成一行的时候就用冒号 Line (xp1, yp1)-(xp2, yp2),...
vb
在窗体上显示图形(菱形) 怎么写代码?
答:
Me.
ForeColor
= QBColor(iColor)Print "*"Next Next For iRow = 7 To 11 lTop = lHeight * iRow + 60 lLeft = lWidth * (iRow - 6) / 2 + 60 For i = 1 To 12 - iRow lLeft = lLeft + lWidth Me.CurrentY = lTop Me.CurrentX = lLeft iColor = iColor + 1 If iColor...
vb
单选按钮
答:
if xxxx then yyyy end if 一样的,如果判断条件为真就执行一句代码,这样写最方便。举个例子你看一下,比较其中的区别 private sub Cmd1_click()dim filename as string filename=trim(text.text)if filename<>"" then '检查文件是否存在,存在就打开,不存在就创建 '创建文件成功后,将text2中...
棣栭〉
<涓婁竴椤
67
68
69
70
71
72
73
74
75
76
其他人还搜