机房那些事儿---小知识

冷不防 2022-07-12 13:55 184阅读 0赞

在敲机房时，遇到一些零星的小问题，在这里，我把他们汇总一下，希望能帮到大家![微笑][smile.gif]

1.在敲帮助窗口时，multline该值指示 TextBox 控件是否能够接受和显示多行文本，将multline属性改为true就可以使他自动换行了

2.如何使text只读  
（1）在text控件中有一个Locked属性，取值为True或False.  
（2）将text的Enable属性改为false  
3.限制只能输入汉字：  
Private Sub Text1\_KeyPress(KeyAscii As Integer) '只能输入汉字  
If KeyAscii >= -20319 And KeyAscii <= -3652 Or KeyAscii = 8 Then  
Else  
KeyAscii = 0  
End If  
End Sub  
限制只能输入0-9的数字：  
Private Sub Text2\_KeyPress(KeyAscii As Integer) '只能输入数字0~9  
If KeyAscii >= 48 And KeyAscii <= 57 Then  
Else  
KeyAscii = 0  
End If  
End Sub  
4.选取数据库表中某一列  
（1）mrc.field(第几列）  
（2）mrc.field("列名")  
（3）mrc!列名（方法2的缩减版）  
5.（添加或删除用户）怎么实现comboBox“只能选择 不能修改”的功能  
选择DropDownList的Style 属性  
（1）0-Simple下拉式组合框，由一个下拉式列表和一个文本框组成  
（2）1-DropDown 简单组合框，由一个文本框和一个标准列表框组成，列表框不是下拉式的  
（3）2-DropDownList 下拉式列表组合框，外观上和下拉式组合框一样，但不能接受文本输入  
6.利用数据库搜索数据的大概步骤：  
利用数据库,首先连接数据库,用输入的内容然后根据输入的内容进行查询(Select \* form TABLE Where 字段名 = '查询内容' ),再根据Select后的数据显示到界面上.  
7.MSFlexGrid控件CellAlignment属性  
0 flexAlignLeftTop 单元内容顶部左对齐。  
1 flexAlignLeftCenter 单元内容中间左对齐。对字符串的缺省设置值。  
2 flexAlignLeftBottom 单元内容底部左对齐。  
3 flexAlignCenterTop 单元内容顶部居中。  
4 flexAlignCenterCenter 单元内容中间居中。  
5 flexAlignCenterBottom 单元内容底部居中。  
6 flexAlignRightTop 单元内容顶部右对齐。  
7 flexAlignRightCenter 单元内容中间右对齐。对数字的缺省设置值。  
8 flexAlignRightBottom 单元内容底部右对齐。  
9 flexAlignGeneral 单元内容一般对齐方式。对字符串中间左对齐而对数值中间右对齐。  
8.MSFlexGrid导出Excel表格  
Public Sub ExportFlexDataToExcel(MSFlexGrid1 As MSFlexGrid)  
Dim i, j As Integer  
Dim x1 As Object  
Dim x1wbook As Object  
Dim x1sheet As Object  
  
Set x1 = CreateObject("excel.application")  
'调用excel工作簿  
Set x1book = x1.Workbooks.Add  
'添加工作簿  
x1.Visible = True  
Set exsheet = x1book.Worksheets("sheet1")  
'添加工作单元  
  
For i = 1 To MSFlexGrid1.Rows  
For j = 1 To MSFlexGrid1.Cols  
exsheet.cells(i, j) = MSFlexGrid1.TextMatrix(i - 1, j - 1)  
Next j  
Next i  
End Sub

在调出命令按钮下添加如下代码

Call ExportFlexDataToExcel(MSFlexGrid1)

[smile.gif]: /images/20220709/8b3777b914f843389960a6fba1c39cfc.png