没有合适的资源?快使用搜索试试~ 我知道了~
WinCC中MSFlexGrid控件编程程序[参考].pdf
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 18 浏览量
2021-10-12
01:42:00
上传
评论
收藏 21KB PDF 举报
温馨提示
试读
12页
WinCC中MSFlexGrid控件编程程序[参考].pdf
资源推荐
资源详情
资源评论
MSFlexGrid 总行数和总列数的定义:
MSFlexGrid1.Rows = 5 ' 规定表格的总行数为 5
行
MSFlexGrid1.Cols = 2 ' 规定表格的总列数为 2
行
MSFlexGrid 某一单元格的文本内容
MSFlexGrid1.TextMatrix(3, 0) =" 网站地址 " ' 定义第 3 行的左边表头文本内
容为:“网站地址”
MSFlexGrid1.TextMatrix(3, 2) ="u3u3.com.cn " 定义第 3 行第 2 列的文本
内容为:“ u3u3.com.cn ”
右键选中 MSFlexGrid 的
Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer,
x As Single, y As Single)
If Button = vbRightButton Then
MSFlexGrid1.Row = y / MSFlexGrid1.RowHeight(0) - 0.5
MSFlexGrid1.RowSel = MSFlexGrid1.Row
' 右键选种当前行 --- 备用 u3u3:
'MSFlexGrid1.Col = 0
'MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1
' 右键选种当前单元格 --- 备用 u3u3:
'MSFlexGrid1.Col = x / MSFlexGrid1.ColWidth(0) - 0.5
'MSFlexGrid1.Col = MSFlexGrid1.Col
'Text1.Text = MSFlexGrid1.Text
End If
End Sub
MSFlexGrid 的单元格被点击时的事件
Private Sub MSFlexGrid1_EnterCell()
MSFlexGrid1.CellBackColor = vbBlue ' 被点中 MSFlexGrid 的单元
格背景变兰色
MSFlexGrid1.CellForeColor = vbWhite ' 字体变白色
End Sub
MSFlexGrid 的单元格失去光标后的事件
Private Sub MSFlexGrid1_LeaveCell()
MSFlexGrid1.CellBackColor = vbWhite
MSFlexGrid1.CellForeColor = vbBlue
End Sub
使 MSFlexGrid 的单元格内容可编辑
' 前提:新建两个 text 文本框,分别为 text1 和 text1
'====================从这里开始,使单元格可以编辑
Private Sub MSFlexGrid1_EnterCell()
MSFlexGrid1.CellBackColor = vbBlue
MSFlexGrid1.CellForeColor = vbWhite
Text1.Text = MSFlexGrid1.Text
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Private Sub MSFlexGrid1_LeaveCell()
MSFlexGrid1.CellBackColor = vbWhite
MSFlexGrid1.CellForeColor = vbBlue
End Sub
Private Sub Text1_Change()
MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, MSFlexGrid1.Col) =
Text1.Text
End Sub
Private Sub Text2_Change() ' 修改表头
Dim r, c As Integer
r = MSFlexGrid1.Row
c = 0
MSFlexGrid1.TextMatrix(r, 0) = Text2.Text
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft, vbKeyRight, vbKeyUp, vbKeyDown
KeyCode = 0
End Select
剩余11页未读,继续阅读
资源评论
czq131452007
- 粉丝: 2
- 资源: 12万+
下载权益
C知道特权
VIP文章
课程特权
开通VIP
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功