1,451
社区成员
发帖
与我相关
我的任务
分享MSHFlexGrid怎么在固定行和固定列上写信息？
做一个课程表，用MSHFlexGrid来表示
第一行写（星期一、二、。。。日）
第一列写 （第一节、。。。。七节）
可找不到相关属性可以直接在固定行和固定列上写信息，
有办法实现吗？
第一行写（星期一、二、。。。日）
第一列写 （第一节、。。。。七节）
可找不到相关属性可以直接在固定行和固定列上写信息，
有办法实现吗？
...全文
请发表友善的回复…
发表回复
rianer 2003-12-18
- 打赏
- 举报
MSHFlexGrid1.Rows = n
MSHFlexGrid1.Cols = 11
MSHFlexGrid1.Row = 0
MSHFlexGrid1.Col = 0
MSHFlexGrid1.Text = ""
MSHFlexGrid1.Col = 1
MSHFlexGrid1.Text = "年份"
MSHFlexGrid1.Col = 2
MSHFlexGrid1.Text = "姓名"
MSHFlexGrid1.Col = 3
MSHFlexGrid1.Text = "总工"
MSHFlexGrid1.Col = 4
MSHFlexGrid1.Text = "日工资"
MSHFlexGrid1.Col = 5
MSHFlexGrid1.Text = "总工资"
MSHFlexGrid1.Col = 6
MSHFlexGrid1.Text = "借支金额"
MSHFlexGrid1.Col = 7
MSHFlexGrid1.Text = "饭费"
MSHFlexGrid1.Col = 8
MSHFlexGrid1.Text = "余款"
MSHFlexGrid1.Col = 9
MSHFlexGrid1.Text = "领取否"
MSHFlexGrid1.Col = 10
MSHFlexGrid1.Text = "领取人"
我的这种方法很笨不过还凑合用
MSHFlexGrid1.Cols = 11
MSHFlexGrid1.Row = 0
MSHFlexGrid1.Col = 0
MSHFlexGrid1.Text = ""
MSHFlexGrid1.Col = 1
MSHFlexGrid1.Text = "年份"
MSHFlexGrid1.Col = 2
MSHFlexGrid1.Text = "姓名"
MSHFlexGrid1.Col = 3
MSHFlexGrid1.Text = "总工"
MSHFlexGrid1.Col = 4
MSHFlexGrid1.Text = "日工资"
MSHFlexGrid1.Col = 5
MSHFlexGrid1.Text = "总工资"
MSHFlexGrid1.Col = 6
MSHFlexGrid1.Text = "借支金额"
MSHFlexGrid1.Col = 7
MSHFlexGrid1.Text = "饭费"
MSHFlexGrid1.Col = 8
MSHFlexGrid1.Text = "余款"
MSHFlexGrid1.Col = 9
MSHFlexGrid1.Text = "领取否"
MSHFlexGrid1.Col = 10
MSHFlexGrid1.Text = "领取人"
我的这种方法很笨不过还凑合用
mjznet 2003-12-17
- 打赏
- 举报
MSFlexGrid1.rows = 8
MSFlexGrid1.cols = 7
MSFlexGrid1.Fixedrows = 8
MSFlexGrid1.Fixedcols = 7
MSFlexGrid1.Formating="^星期一|^星期二|^星期三|^星期四|^星期五|^星期六|^星期日"
dim i%
For i = 1 To 7
MSFlexGrid1.TextMatrix(i,0) = "第" & Mid("一二三四五六七", i, 1) & "节"
Next i
MSFlexGrid1.cols = 7
MSFlexGrid1.Fixedrows = 8
MSFlexGrid1.Fixedcols = 7
MSFlexGrid1.Formating="^星期一|^星期二|^星期三|^星期四|^星期五|^星期六|^星期日"
dim i%
For i = 1 To 7
MSFlexGrid1.TextMatrix(i,0) = "第" & Mid("一二三四五六七", i, 1) & "节"
Next i
hxy2003 2003-12-16
- 打赏
- 举报
呵呵
yangfanatcsdn 2003-12-16
- 打赏
- 举报
仿佛看到了当年的我，建议你多看一看联机参考，微软在这一方面做的还是不错的（都有中文帮助）
northwolves 2003-12-16
- 打赏
- 举报
Private Sub Form_Load()
With MSHFlexGrid1
.Rows = 8
.Cols = 8
.FixedRows = 1
.FixedCols = 1
For i = 1 To 7
.TextMatrix(0, i) = "第" & Mid("一二三四五六七", i, 1) & "节"
.TextMatrix(i, 0) = "星期" & Mid("一二三四五六日", i, 1)
Next
End With
End Sub
With MSHFlexGrid1
.Rows = 8
.Cols = 8
.FixedRows = 1
.FixedCols = 1
For i = 1 To 7
.TextMatrix(0, i) = "第" & Mid("一二三四五六七", i, 1) & "节"
.TextMatrix(i, 0) = "星期" & Mid("一二三四五六日", i, 1)
Next
End With
End Sub
SoHo_Andy 2003-12-16
- 打赏
- 举报
Private Sub initgrid()
MSFlexGrid1.Clear
MSFlexGrid1.Cols = 10
MSFlexGrid1.Rows = 2
MSFlexGrid1.TextMatrix(0, 0) = "图书编号"
MSFlexGrid1.TextMatrix(0, 1) = "图书名称"
MSFlexGrid1.TextMatrix(0, 2) = "读者编号"
MSFlexGrid1.TextMatrix(0, 3) = "读者姓名"
MSFlexGrid1.TextMatrix(0, 4) = "出版社"
MSFlexGrid1.TextMatrix(0, 5) = "作者"
MSFlexGrid1.TextMatrix(0, 6) = "图书类别"
MSFlexGrid1.TextMatrix(0, 7) = "借书时间"
MSFlexGrid1.TextMatrix(0, 8) = "还书时间"
MSFlexGrid1.TextMatrix(0, 9) = "逾期时间"
'上面是写0行的列的
'当然也可以写第一行，第二行，等等的列值
End Sub
MSFlexGrid1.Clear
MSFlexGrid1.Cols = 10
MSFlexGrid1.Rows = 2
MSFlexGrid1.TextMatrix(0, 0) = "图书编号"
MSFlexGrid1.TextMatrix(0, 1) = "图书名称"
MSFlexGrid1.TextMatrix(0, 2) = "读者编号"
MSFlexGrid1.TextMatrix(0, 3) = "读者姓名"
MSFlexGrid1.TextMatrix(0, 4) = "出版社"
MSFlexGrid1.TextMatrix(0, 5) = "作者"
MSFlexGrid1.TextMatrix(0, 6) = "图书类别"
MSFlexGrid1.TextMatrix(0, 7) = "借书时间"
MSFlexGrid1.TextMatrix(0, 8) = "还书时间"
MSFlexGrid1.TextMatrix(0, 9) = "逾期时间"
'上面是写0行的列的
'当然也可以写第一行，第二行，等等的列值
End Sub
