恭喜foolishtiger(吴文智)出任VB版版主!!!!!!!!!!!!! 在去年9月相信到VB版的人都会认识foolishtiger(吴文智) 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 看一下去年他的回答:-------------------------------------------------------------------------------- ' Tip:其实很多问题在以前的贴子里都有过很好的解答,我建议大家提问前先搜一下以前的贴子,会节约很多时间的.'' Author:吴文智' Date:2001-11-26'Description:要试用本例请在窗体中填加一个MSFlexGrid,并在工程中再加一个窗体Form2.' 然后在代码窗体中粘贴如下代码' Good luck!Option ExplicitPrivate Sub Form_Load() With MSFlexGrid1 .Rows = 6 .Cols = 3 .TextMatrix(1, 1) = "可否像网页一样," .TextMatrix(1, 2) = "在列表中点" .TextMatrix(2, 1) = "击一项," .TextMatrix(2, 2) = "然后再其" .TextMatrix(3, 1) = "他窗体里出" .TextMatrix(4, 1) = "现该项" .TextMatrix(5, 1) = "的具体内容" .TextMatrix(5, 2) = "~~~谢谢大家" End WithEnd SubPrivate Sub MSFlexGrid1_DblClick() '将网格内的文本显示在Form2中,Form2上要放两个文本框,名为Text1和Text2 Dim frmshow As Form2 Set frmshow = New Form2 With MSFlexGrid1 frmshow.Text1.Text = .TextMatrix(.Row, 1) frmshow.Text2.Text = .TextMatrix(.Row, 2) End With frmshow.Show vbModal Set frmshow = NothingEnd Sub 吴文智从出江湖了!!!!!!!恭喜!!!!!!!!!!!!!!!!!愿CSDN又可以像以往了!!!!!!!!就是 阿木 什么时候回来?好想他 吴文智重出江湖了,强!WELCOME 在CSDN上,foolishtiger(吴文智)的确有水平我很佩服的人就是他,虽然他的积分不是很高(可能是由于时间的原因)foolishtiger(吴文智)曾工作于广州市天河软件园,后去过大连,现在上海一软件公司为了中国的软件事业,同志们一起奋斗吧!!!!!! to : funboy88(司令) 此人甚是厉害!!!!!!!反正比我强!!!!!-------------------------------------------------------------------- ' Tip:其实很多问题在以前的贴子里都有过很好的解答,我建议大家提问前先搜一下以前的贴子,会节约很多时间的.'' Author:吴文智' Date:2001-11-26'Description:' 然后在代码窗体中粘贴如下代码' Good luck! to : funboy88(司令) 此人甚是厉害!!!!!!!反正比我强!!!!!-------------------------------------------------------------------- ' Tip:其实很多问题在以前的贴子里都有过很好的解答,我建议大家提问前先搜一下以前的贴子,会节约很多时间的.'' Author:吴文智' Date:2001-11-26'Description:' 然后在代码窗体中粘贴如下代码' Good luck! foolishtiger老兄,怎么还不来报到? sstab控件的两个tab位置如何对调?比如第三个tab调成第二个? 在VB中报表按条件进行打印的一些问题的请教? VB6 "XMLHTTP" 方法抓取网页代码,出现乱码,怎么处理? 关于数据库的问题 模仿HookMenu自己写了一个控件 -LS.H 嵌入网页的activeX dll 问题?? 一个时间转换的问题 发现一个问题, COM中的Connection对象执行的SQL>4K左右就出错 如何写一个搜索email地址的程序? 各位上眼那 !!!!!!!!!! 求助,如何注册新的ocx控件? 求助,哪里有介绍计算方法的资料?
' Tip:其实很多问题在以前的贴子里都有过很好的解答,我建议大家提问前先搜一下以前的贴子,会节约很多时间的.
'
' Author:吴文智
' Date:2001-11-26
'Description:要试用本例请在窗体中填加一个MSFlexGrid,并在工程中再加一个窗体Form2.
' 然后在代码窗体中粘贴如下代码
' Good luck!Option ExplicitPrivate Sub Form_Load()
With MSFlexGrid1
.Rows = 6
.Cols = 3
.TextMatrix(1, 1) = "可否像网页一样,"
.TextMatrix(1, 2) = "在列表中点"
.TextMatrix(2, 1) = "击一项,"
.TextMatrix(2, 2) = "然后再其"
.TextMatrix(3, 1) = "他窗体里出"
.TextMatrix(4, 1) = "现该项"
.TextMatrix(5, 1) = "的具体内容"
.TextMatrix(5, 2) = "~~~谢谢大家" End With
End Sub
Private Sub MSFlexGrid1_DblClick()
'将网格内的文本显示在Form2中,Form2上要放两个文本框,名为Text1和Text2
Dim frmshow As Form2
Set frmshow = New Form2
With MSFlexGrid1
frmshow.Text1.Text = .TextMatrix(.Row, 1)
frmshow.Text2.Text = .TextMatrix(.Row, 2)
End With
frmshow.Show vbModal
Set frmshow = Nothing
End Sub
好想他
我很佩服的人就是他,虽然他的积分不是很高(可能是由于时间的原因)
foolishtiger(吴文智)曾工作于广州市天河软件园,后去过大连,
现在上海一软件公司
为了中国的软件事业,同志们一起奋斗吧!!!!!!
此人甚是厉害!!!!!!!反正比我强!!!!!--------------------------------------------------------------------
' Tip:其实很多问题在以前的贴子里都有过很好的解答,我建议大家提问前先搜一下以前的贴子,会节约很多时间的.
'
' Author:吴文智
' Date:2001-11-26
'Description:' 然后在代码窗体中粘贴如下代码
' Good luck!
此人甚是厉害!!!!!!!反正比我强!!!!!--------------------------------------------------------------------
' Tip:其实很多问题在以前的贴子里都有过很好的解答,我建议大家提问前先搜一下以前的贴子,会节约很多时间的.
'
' Author:吴文智
' Date:2001-11-26
'Description:' 然后在代码窗体中粘贴如下代码
' Good luck!