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

在敲机房时，遇到一些零星的小问题，在这里，我把他们汇总一下，希望能帮到大家

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)