如何用vb6.0保存嵌入vsflexgrid控件中的文本框
答案:1 悬赏:80
解决时间 2021-02-19 11:08
- 提问者网友:暗中人
- 2021-02-18 21:47
如何用vb6.0保存嵌入vsflexgrid控件中的文本框
最佳答案
- 二级知识专家网友:怀裏藏嬌
- 2021-02-18 22:34
Private Function YiDongTXT(Table As MSHFlexGrid, kongJian As TextBox, RowNum As Integer, ColNum As Integer)
If Table.Col <= ColNum And Table.Row <= RowNum Then
kongJian.Left = Table.Left + Table.ColPos(Table.Col)
kongJian.Top = Table.Top + Table.RowPos(Table.Row)
If Table.Col = 1 Then
kongJian.Width = 1330
Else
kongJian.Width = 1050
End If
kongJian.Height = Table.RowHeight(Table.Row)
kongJian.Text = Table.Text
kongJian.Visible = True
If MSHF1.Col = 9 Then kongJian.Text = ""
kongJian.SetFocus
End If
End Function
Call YiDongTXT(MSHF1, txt, MSHF1.Rows, MSHF1.Cols)和mshf的方法一样,只能移动文本框到上去,单击按钮触发事件,修改后内容给vs
If Table.Col <= ColNum And Table.Row <= RowNum Then
kongJian.Left = Table.Left + Table.ColPos(Table.Col)
kongJian.Top = Table.Top + Table.RowPos(Table.Row)
If Table.Col = 1 Then
kongJian.Width = 1330
Else
kongJian.Width = 1050
End If
kongJian.Height = Table.RowHeight(Table.Row)
kongJian.Text = Table.Text
kongJian.Visible = True
If MSHF1.Col = 9 Then kongJian.Text = ""
kongJian.SetFocus
End If
End Function
Call YiDongTXT(MSHF1, txt, MSHF1.Rows, MSHF1.Cols)和mshf的方法一样,只能移动文本框到上去,单击按钮触发事件,修改后内容给vs
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯