1 Line.LineSlant = true
/
false
/
注:left为从左上到右下时的left,LineSlant设置为true时,线按照对称轴翻转
2 form中的控件选择
①form名.控件名
②控件名
③me.控件名
④me("控件名")
⑤form
s("form名")("控件名")
⑥sub form引用:form
s("frmMap").form("frmCRD")("控件名").width
frmMap:主form frmCRD:子form
⑦Forms![frm1]![frm2]![frm3].Form.txt1.value = "aaa"
3 combox相关设定
属性 ①列数:选择的列数 ep 2
②列幅:设定列的宽度 ep 0cm;3cm
③连接列:连接的列数 ep 2
coding部分:
combox名.RowSourceType = "Table/Query"
combox名.RowSource = "select s_code,s_name from s_table"
取得列的值
strcd = combox名.Column(
0)
strName = combox名.Column(1)
4 ListView控件相关
ListView中追加ListItem控件
ep: dim listV as ListItem
Set ListV = Forms("form名")("ListView名").ListItem.Add
追加listItem
ListView.text = "aaa"
ListView的取值
ep: dim listV as ListItem
Set ListV = Forms("form名")("ListView名").ListItem(List Index)
If ListV.text = "aaa" then
... ...
End If