手头有几个问题一直没有解决,请高手赐教!
我手头有几个问题一直没有解决,请高手赐教!
1.我用mschart画出曲线图,但是由于数据多所以横坐标的标签显的模糊不清,这个怎么解决?还有我运行后不想让它可以来回移动,要固定住,这哪里可以设置?
2.msflexgrid控件的问题:我怎么可以将控件里的所有内容都选中,相当于按下CTRL+A键的功能?还有我要删除选中的多行,我怎么确定哪些行列处在多选状态或者跨行的选中?我要将控件里的内容保存到文本文件中,这有我的一些代码可出错提示说记录长度有误?
CommonDialog1.Action = 2
Dim temp As String
Dim i As Integer
Dim num As Long
Open CommonDialog1.FileName For Random As #1
For i = 0 To MSFlexGrid1.Rows - 1
For j = 0 To MSFlexGrid1.Cols - 1
temp = temp & MSFlexGrid1.TextMatrix(i, j) & Chr(10) & Chr(13)
Next j
Next i
Put #1, , temp '这是出错语句,可能需要记录号吧,
Close #1
再一问题是我这msflexgrid控件中我选中一行,然后我想将这一行复制下来,因我这控件右键有弹出菜单,我要实现里面的一个复制功能,请赐教。!
3.我的listbox里有内容,我要将这些内容写入文本文件,然后将其再调用进来,可加进来以后都是显示在listbox的一行里面,我想文本文件中一行为listbox里面的一行,请赐教!
因问题众多,如能帮解决问题的,一定给分!分少可以再加!
因刚初学,希望可以和众多高手交流经验。
QQ:270240311 ren51me@163.com
[解决办法]
问题二:
MSFlexGrid有一个属性是允许用户多行选择的,请打开该选项,就可以进行多行选择,如果设成BOTH的话, 可以进行多行和多列选择。
在MSFlexGrid中的选择好象只能用鼠标进行选择, 用CTRL+A好象实现不了。不过可以在它的KEYDOWN事件中自己写函数。
问题二附加:自己添加一个POPMENU控件, 要做什么自己写就是了。
MSFLEXGRID好象有个SELECT集。(不好意思,手头上没装VB,只能写个大概)
问题三:
在每行LIST的值末尾强制加个回车就行了。
[解决办法]
MSFlexGrid.selection不知道是否有这个属性,我电脑上没装VB,实在记不清楚了。
全选并存储的函数大概可以这样子写
dim sRowVal as string
dim aryFlx() as string
if shift =2 then
if keycode= 'A ' then
dim i,j as integer
with MSFlexGrid
redim aryFlx(.rows) as string
for i=0 to .rows
for j=0 to .cols
....
'这里按行拼接成串, 存到一个变量里面
sRowVal=sRowVal & .matrix(i,j).text
....
next j
aryFlx(i)=sRowVal & vbcrlf
next i
end with
endif
endif
PS:具体语法有问题,未测试过