|
|
|
|
| ****************************************
| | 2019/1/23 | 《vba中的颜色》 |
1、vb中可以使用的颜色常数不多：
vbBlack，0x0，黑色
vbRed，0xFF，红色
vbGreen，0xFF00，绿色
vbYellow，0xFFFF，黄色
vbBlue，0xFF0000，蓝色
vbMagenta，0xFF00FF，紫红色
vbCyan，0xFFFF00，青色
vbWhite，0xFFFFFF，白色
2、另外，还有Windows里面设置的一些系统颜色，这个稍微多一点，但英语对我们就呵呵了
vbScrollBars，0x80000000，滚动条颜色
vbDesktop，0x80000001，桌面颜色
vbActiveTitleBar，0x80000002，活动窗口的标题栏颜色
vbInactiveTitleBar，0x80000003，非活动窗口的标题栏颜色
vbMenuBar，0x80000004，菜单背景色
vbWindowBackground，0x80000005，窗口背景色
vbWindowFrame，0x80000006，窗口框架颜色
vbMenuText，0x80000007，菜单文本颜色
vbWindowText，0x80000008，窗口文本颜色
vbTitleBarText，0x80000009，标题、调整框和滚动箭头的文本颜色
vbActiveBorder，0x8000000A，活动窗口边框颜色
vbInactiveBorder，0x8000000B，非活动窗口边框颜色
vbApplicationWorkspace，0x8000000C，多文档界面 (MDI) 应用程序的背景色
vbHighlight，0x8000000D，控件中选中项目的背景色
vbHighlightText，0x8000000E，控件中选中项目的文本颜色
vbButtonFace，0x8000000F，命令按钮表面阴影颜色
vbButtonShadow，0x80000010，命令按钮边缘阴影颜色
vbGrayText，0x80000011，灰色（无效）文本
vbButtonText，0x80000012，下压按钮文本颜色
vbInactiveCaptionText，0x80000013，非活动标题文本颜色
vb3DHighlight，0x80000014，3-D 显示元素的突出显示颜色
vb3DDKShadow，0x80000015，3-D 显示元素的最深阴影颜色
vb3DLight，0x80000016，vb3Dhighlight 之外最亮的 3-D 颜色
vbInfoText，0x80000017，工具提示文本颜色
vbInfoBackground，0x80000018，工具提示背景色
3、在html语言中可用的颜色常熟就要发放的多，下面给你几个例子
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2019/1/15 | 《几何画板》 |
|
链接：https://pan.baidu.com/s/10bmrGc9NZBZLtEq-QPhlgw 提取码：do6L 几何画板5.06
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2019/1/15 | 《几何画板》 |
|
链接：https://pan.baidu.com/s/10bmrGc9NZBZLtEq-QPhlgw 提取码：do6L 几何画板5.06
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2019/1/2 | 《vba，查询，出错》 |
|
vba，查询，出错原因： A列，不是最后一行 x = Range("a65536").End(xlUp).Row 改为： x = Range("b65536").End(xlUp).Row B列，(姓名)列
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2019/1/2 | 《养老补助，4050》 |
|
司海清 89537741（太乙路街道办，4050）
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/12/28 | 《asp代码》 |
|
<p align="center"> align是对齐属性。它的值可以是left、center、right,分别表示靠左、中、右
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/12/23 | 《asp，数据库，部分不显示》 |
|
asp，数据库，读取显示 原句：
<td align="center" nowrap="nowrap" bgcolor="#FFFFFF"><input type="text" name="address size="8" value="<%=rs("address")%>" /></td>
如果这句全部删除，此列网页不显示
不显示数据，但保留表格
<td align="center" nowrap="nowrap" bgcolor="#FFFFFF"><input type="text" size="8" /></td>
不显示数据，也不保留表格，但保留此列
<td align="center" nowrap="nowrap" bgcolor="#FFFFFF"></td>
不显示数据，此列变灰色
<td></td>
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/12/22 | 《vba跳转，vba跳过代码》 |
GoTo、On…GoTo语句1．GoTo语句无条件地跳转到程序的某个标记，此标记可以利用任何字符组合，以字母开头，以冒号结尾。2．On…GoTo语句如果希望根据表达式的结果而决定跳转到某个标记处，需要利用On…GoTo语句，语句法如下：On expression GoSub destinationlistOn expression GoTo destinationlist
首选： GoTo Skip ................ ' 不会被执行 Skip
GoTo LastLine
................ ' 不会被执行
LastLine: ' 接GoTo LastLine 完成
示例： Sub GotoStatementDemo()
Dim Number, MyString
Number = 1 ' 设置变量初始值。
' 判断 Number 的值以决定要完成那一个程序区段（以“程序标签”来表式）。
If Number = 1 Then GoTo Line1 Else GoTo Line2
Line1:
MyString = "Number equals 1"
GoTo LastLine ' 完成最后一行。
Line2:
' 下列的语句根本不会被完成。
MyString = "Number equals 2"
LastLine: ' 接GoTo LastLine 完成
Debug.Print MyString ' 将“"Number equals 1"”显示在“立即”窗口。
End Sub
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/12/19 | 《电子锁，指纹锁，密码锁》 |
|
010：321456
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/12/19 | 《电子密码锁指纹锁》 |
|
管理账号 001：683125
|
|
|
|
|
|
|