📄 【mshflexgrid控件的一些常用功能】_333su.htm
字号:
"↓"<BR>----------------------------------------------------------------------------------------------------------------------------</P>
<P>Public Sub Sort(sgrd As MSHFlexGrid, y As Single)<BR>
With sgrd<BR> If y >=
.RowPos(0) And y < .RowPos(1)
Then<BR>
If .Tag <> ""
Then<BR>
If .Tag <> .Col
Then<BR>
.TextMatrix(0, .Tag) = Left(.TextMatrix(0, .Tag), Len(.TextMatrix(0,
.Tag)) -
1)<BR>
End
If<BR>
End
If<BR>
<BR> If
Right(.TextMatrix(0, .Col), 1) = STR_SORT_ASC
Then<BR>
.Sort =
flexSortGenericAscending<BR>
.TextMatrix(0, .Col) = Replace(.TextMatrix(0, .Col), STR_SORT_ASC,
STR_SORT_DESC)<BR>
ElseIf Right(.TextMatrix(0, .Col), 1) = STR_SORT_DESC
Then<BR>
.Sort =
flexSortGenericDescending<BR>
.TextMatrix(0, .Col) = Replace(.TextMatrix(0, .Col), STR_SORT_DESC,
STR_SORT_ASC)<BR>
Else<BR>
.Sort =
flexSortGenericDescending<BR>
.TextMatrix(0, .Col) = .TextMatrix(0, .Col) &
STR_SORT_ASC<BR>
End
If<BR>
.Tag = .Col<BR> End
If<BR> End With<BR>End Sub</P>
<P>----------------------------------------------------------------------------------------------------------------------------</P>
<P>Private Sub MSH1_MouseUp(Button As Integer, Shift As Integer, x As
Single, y As Single)<BR> Sort MSH1, y<BR>End Sub</P>
<P>================================================================================</P>
<P>支持鼠标滚轮</P>
<P>Dim lngdRow As Long<BR>Dim lngOldRow As Long<BR>Dim rec As
Long<BR>Private Const PM_REMOVE = &H1</P>
<P>Private Type POINTAPI<BR>x As Long<BR>y As Long<BR>End Type</P>
<P>Private Type Msg<BR>hWnd As Long<BR>Message As Long<BR>wParam As
Long<BR>lParam As Long<BR>time As Long<BR>pt As POINTAPI<BR>End Type</P>
<P>Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA"
_<BR>(lpMsg As Msg, _<BR>ByVal hWnd As Long, _<BR>ByVal wMsgFilterMin As
Long, _<BR>ByVal wMsgFilterMax As Long, _<BR>ByVal wRemoveMsg As Long) As
Long<BR>Private Declare Function WaitMessage Lib "user32" () As
Long<BR>Private bCancel As Boolean<BR>Private Const WM_MOUSEWHEEL =
522</P>
<P>＇－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－</P>
<P>Private Sub ProcessMessages()<BR>Dim Message As Msg<BR>Do While Not
bCancel<BR>WaitMessage '等待消息<BR>If PeekMessage(Message, MSH1.hWnd,
WM_MOUSEWHEEL, WM_MOUSEWHEEL, PM_REMOVE) Then<BR>If Message.wParam < 0
Then '向上滚动<BR>'Me.Top = Me.Top + 240<BR>If MSH1.TopRow < MSH1.Rows
Then<BR>MSH1.TopRow = MSH1.TopRow + 1<BR>End If<BR>Else '向下滚动<BR>If
MSH1.TopRow > 1 Then<BR>MSH1.TopRow = MSH1.TopRow - 1<BR>End If<BR>End
If<BR>End If<BR>DoEvents<BR>Loop<BR>End Sub</P>
<P>＇－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－</P>
<P>Private Sub MSH1_click()<BR>MSH1.Refresh<BR>ProcessMessages<BR>End
Sub<BR>＇－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－<BR>Private Sub
Form_Unload(Cancel As Integer)<BR>bCancel = True<BR>End Sub</P>
<P>＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝</P>
<P>显示间隔颜色</P>
<P></P>
<DIV align=center forimg="1"><A
href="【MSHFlexGrid控件的一些常用功能】_333su.files/7ab2ed2ba92a16f0e6cd4086.jpg"
target=_blank><IMG class=blogimg
src="【MSHFlexGrid控件的一些常用功能】_333su.files/7ab2ed2ba92a16f0e6cd4086.jpg"
border=0 small="0"></A></DIV>
<P><BR>For k = 1 To MSH1.Rows - 1<BR>MSH1.Row = k<BR>If k Mod 2 = 0
Then<BR>For r = 1 To MSH1.Cols - 1<BR> MSH1.Col =
r<BR> MSH1.CellBackColor = RGB(227, 241,
226)<BR> Next<BR>End If<BR>Next</P>
<P>＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝</P>
<P>使指定行内容改变文字颜色（如库存为零时为红色）</P>
<P>rivate Sub MSHsS() <BR>Dim j As Long<BR>For j = 1 To
Adodc1.Recordset.RecordCount<BR>MSH1.Row = j<BR>MSH1.Col =
11＇库存量所在列<BR>
If MSH1.Text = "０"
Then＇库存为０时<BR>
For i = 1 To MSH1.Cols - 1<BR> MSH1.Col =
i<BR> MSH1.CellForeColor = vbRed<BR>
Next<BR> End If<BR>Next j<BR>End Sub</P>
<P>待续．．．．．．．．．．．．．．．．．．．</P></DIV></TD></TR></TBODY></TABLE><BR>
<DIV class=opt><A title=查看该分类中所有文章
href="http://hi.baidu.com/333su/blog/category/ĬÈÏ·ÖÀà">类别：默认分类</A> | <A
title=将此文章添加到百度搜藏 onclick="return addToFavor();"
href="http://cang.baidu.com/do/add" target=_blank>添加到搜藏</A> | 浏览(<SPAN
id=result></SPAN>) | <A
href="http://hi.baidu.com/333su/blog/item/23b5c409444820276b60fbbe.html#send">评论</A> (0)
<SCRIPT language=javascript>/*<![CDATA[*/var pre = [true,'【打开任何文件】', '【打开任何文件】','/333su/blog/item/fe84c338f64e99c1d56225a9.html'];var post = [true,'【OLEDB方法连接Access数据库】','【OLEDB方法连接Access数据库】', '/333su/blog/item/726606d9ef03d6ea39012fa6.html'];if(pre[0] || post[0]){ document.write('<div style="height:5px;line-height:5px;"> </div><div id="in_nav">'); if(pre[0]){ document.write('上一篇：<a href="' + pre[3] + '" title="' + pre[1] + '">' + pre[2] + '</a> '); } if(post[0]){ document.write('下一篇：<a href="' + post[3] + '" title="' + post[1] + '">' + post[2] + '</a>'); } document.write('</div>');}/*]]>*/</SCRIPT>
</DIV>
<DIV class=line></DIV>
<STYLE type=text/css>#in_related_doc A {
TEXT-DECORATION: none
}
</STYLE>
<DIV id=in_related_tmp></DIV>
<SCRIPT language=javascript type=text/javascript>/*<![CDATA[*/function HI_MOD_IN_RELATED_DOC_CALLBACK(arg){ if(arg.length <= 1) return false; var hasMore = arg[0]; var D=function(A,B){A[A.length]=B;} if(arg.length % 2 == 0) D(arg, ["","","",""]); var html = ['<div id="in_related_doc"><div class="tit">相关文章：</div>']; D(html, '<table cellpadding="0" cellspacing="3" border="0">'); for(var i = 1, j = arg.length; i < j; i += 2){ D(html, '<tr>'); D(html, '<td width="15px"><a style="font-size:25px" >•</a></td><td><a href="http://hi.baidu.com/' + arg[i][3] + '/blog/item/' + arg[i][2] + '.html" target="_blank" title="' + arg[i][0] + '">' + arg[i][1] + '</a>'); D(html, new Array(10).join('\u3000')); D(html, '</td>'); if(arg[i + 1][0] != "") D(html, '<td width="15px"><a style="font-size:25px" >•</a></td><td><a href="http://hi.baidu.com/' + arg[i + 1][3] + '/blog/item/' + arg[i + 1][2] + '.html" target="_blank" title="' + arg[i + 1][0] + '">' + arg[i + 1][1] + '</a></td>'); else D(html, '<td> </td><td> </td>'); D(html, '</tr>'); } if(hasMore) D(html, '<tr><td colspan="4"><a target="_blank" href="/sys/search?pageno=1&type=7&sort=1&word=%A1%BEMSHFlexGrid%BF%D8%BC%FE%B5%C4%D2%BB%D0%A9%B3%A3%D3%C3%B9%A6%C4%DC%A1%BF&item=23b5c409444820276b60fbbe">更多>></a></td></tr>'); D(html, '</table></div><div class="line"> </div>'); var div = document.getElementById('in_related_tmp'); if(div){ div.innerHTML = html.join(''); while(div.firstChild){ div.parentNode.insertBefore(div.firstChild, div); } div.parentNode.removeChild(div); } window.setTimeout("tracker_init('in_related_doc')",100);}if(RelatedDocData == -1){ // not supported xhr var script = document.createElement('script'); script.type = 'text/javascript'; script.src = '/sys/search?type=8&word=%A1%BEMSHFlexGrid%BF%D8%BC%FE%B5%C4%D2%BB%D0%A9%B3%A3%D3%C3%B9%A6%C4%DC%A1%BF&item=23b5c409444820276b60fbbe&t=' + new Date().getTime(); document.getElementsByTagName('HEAD')[0].appendChild(script);}else if(RelatedDocData == null){ GetAndEval = true;}else{ eval(RelatedDocData);}/*]]>*/</SCRIPT>
<DIV id=in_reader>
<DIV class=tit>最近读者：</DIV>
<SCRIPT> var g_spAnnony=true;var g_read=[ ["jslysong","e5826a736c79736f6e67d400","jslysong"], ["clso","5c4cd2b9cec5cfe31b00","夜闻香"], ["sqlt","c8f36d6163726f7469616edc01","macrotian"], ["23sj%5Fnet","858e3233736a5f6e65746302","23sj_net"], ["chen%5Fbawang","d15d6368656e5f626177616e673f00","chen_bawang"], ["baoliss","64086a786c697579616e677c00","jxliuyang"], ["xiaozhu%5F%D0%A1%D6%ED","b4777869616f7a68755fd0a1d6ed3103","xiaozhu_小猪"], ["starywang","fd75737472617977616e67ad02","straywang"],{}];g_read.length=g_read.length-1;var _rh1="";var _rh2="";function wrreader(){ _rh1 += '<table width="100%" ><tr>'; _rh2+='<tr>'; if(g_spAnnony){ _rh1+='<td align="center" width="10%" ><img border="0" width="55" height="55" src="http://img.baidu.com/hi/img/portraitn.jpg"></td>'; _rh2+='<td> </td>'; if(g_read.length>0){ _rh1+='<td align="left" width="12%">'; }else{ _rh1+='<td align="left" width="100%">'; } _rh1+="<a href='http://passport.baidu.com/?login&tpl=sp&tpl_reg=sp&u="+myref+"' target='_self'>登录</a>后，您就出现在这里。</td>"; _rh2+='<td> </td>' } if(g_read.length==0){ if(!g_spAnnony){ _rh1+='<td align=left width="100%">最近还没有登录用户看过这篇文章……</td>'; _rh2+='<td> </td>'; } }else{ for(i=0,len=g_read.length;i<len;i++){ _rh1+='<td align="center" valign="bottom" width="10%" class="user"><a href="/'+g_read[i][0]+'" target="_blank"><img border="0" src="http://himg.baidu.com/sys/portraitn/item/'+g_read[i][1]+'.jpg"></a></td>'; _rh2+='<td align="center" valign="top" class="user"><a href="/'+g_read[i][0]+'" target="_blank">'+g_read[i][2]+'</a></td>'; } } _rh1+='<td width="100%"></td></tr>'; _rh2+='<td></td></tr></table>'; document.write(_rh1+_rh2);}wrreader();</SCRIPT>
</DIV>
<DIV class=line></DIV>
<SCRIPT language=JavaScript>allkey=allkey+"41450cc67645b41b9c163d32_23b5c409444820276b60fbbe_";</SCRIPT>
<DIV id=in_comment><A name=comment></A>
<DIV class=tit>网友评论：</DIV>
<SCRIPT>function writecmt(type,id,cmtname,cmturl,portraitId){ var html1=""; if(type==1){ html1="<a href='"+cmturl+"' target='_blank' title='"+cmturl+"'><img border='0' src='http://himg.baidu.com/sys/portraitn/item/"+portraitId+".jpg'><br>"+cmtname+"</a>"; }else{ if(cmtname=="" || cmtname=="匿名网友"){ if(cmturl==""){ html1="<a>匿名网友</a>"; }else{ html1="<a href='"+cmturl+"' target='_blank' title='"+cmturl+"'>"+cmtname+"</a>"; } }else{ if(cmturl==""){ html1="<div class='f14' style='display:inline'>网友:<a>"+cmtname+"</a></div>"; }else{ html1="<div class='f14' style='display:inline'>网友:<a href='"+cmturl+"' target='_blank' title='"+cmturl+"'>"+cmtname+"</a></div>"; } } } document.write(html1);}</SCRIPT>
<DIV id=page></DIV></DIV>
<DIV id=in_send><A name=send></A>
<FORM id=popFormSubmit name=form1 onsubmit="return checkcmtform()"
action=/333su/commit method=post><INPUT type=hidden value=8 name=ct> <INPUT
type=hidden value=1 name=cm> <INPUT type=hidden value=23b5c409444820276b60fbbe
name=spBlogID>
<SCRIPT language=JavaScript> document.write("<input type='hidden' name='spRefURL' value='"+window.location.href+"'>");</SCRIPT>
<DIV class=tit>发表评论：</DIV>
<TABLE cellSpacing=5 cellPadding=0 width=620 border=0>
<TBODY>
<TR>
<TD class=f14>姓 名：</TD>
<TD><INPUT id=spBlogCmtor style="WIDTH: 220px" onfocus=hidErr(1);
tabIndex=1 maxLength=49 onchange="checkname('spBlogCmtor')"
name=spBlogCmtor>
<SCRIPT>document.write(" <a href='http://passport.baidu.com/?reg&tpl=sp&return_method=get&skip_ok=1&u=http://hi.baidu.com/sys/reg/' target='_blank'>注册</a>");document.write(" | <a href='http://passport.baidu.com/?login&tpl=sp&tpl_reg=sp&u="+myref+"'>登录</a>");</SCRIPT>
<DIV id=nmerror style="DISPLAY: none">*姓名最长为50字节</DIV></TD></TR>
<TR id=1_err style="DISPLAY: none">
<TD> </TD>
<TD>
<DIV class=error id=1_err_con></DIV></TD></TR>
<TR>
<TD class=f14>网址或邮箱：</TD>
<TD><INPUT id=spBlogCmtURL style="WIDTH: 360px" onfocus=hidErr(2);
tabIndex=2 maxLength=128 onchange="checkeandu('spBlogCmtURL')"
name=spBlogCmtURL> (选填)</TD>
<SCRIPT>G("spBlogCmtor").value="";G("spBlogCmtURL").value="";</SCRIPT>
</TR>
<TR id=2_err style="DISPLAY: none">
<TD> </TD>
<TD>
<DIV class=error id=2_err_con></DIV></TD></TR>
<TR>
<TD class=f14 vAlign=top>内 容：</TD>
<TD><TEXTAREA id=spBlogCmtText style="WIDTH: 520px; HEIGHT: 155px" onfocus=hidErr(3); tabIndex=3 name=spBlogCmtText></TEXTAREA>
<SCRIPT>G("spBlogCmtor").value=G("spBlogCmtor").defaultValue;G("spBlogCmtText").value="";</SCRIPT>
</TD></TR>
<TR id=3_err style="DISPLAY: none">
<TD> </TD>
<TD>
<DIV class=error id=3_err_con></DIV></TD></TR>
<TR id=vercode>
<TD class=f14 vAlign=top>验证码：</TD>
<TD vAlign=top><INPUT type=hidden
value=2FDF2F794A26A1720728DE94D3FA795793D7412ACEBE5791543E5BF0B779EBA32E540C4C103FDB2D2D07067DF3EAC5FFD3038C9808BC362B1C8789922FC1F983
name=spVcode> <INPUT id=spVerifyKey onfocus=f_focus() tabIndex=4
maxLength=4 size=6 name=spVerifyKey autocomplete="off"><BR>
<SCRIPT type=text/javascript>/*<![CDATA[*/var imgsrc="http://hiup.baidu.com/cgi-bin/genimg?2FDF2F794A26A1720728DE94D3FA795793D7412ACEBE5791543E5BF0B779EBA32E540C4C103FDB2D2D07067DF3EAC5FFD3038C9808BC362B1C8789922FC1F983";function f_focus(){ if(G('yanzheng').style.display=="none" ){ G('verifypic').src=imgsrc; G('yanzheng').style.display="block"; }}function newverifypic(){ G("verifypic").src = imgsrc +"&t="+ Math.random(); return false;}/*]]>*/</SCRIPT>
<DIV id=yanzheng style="DISPLAY: none"><IMG id=verifypic height=40
width=120><WBR><A title=看不清左边的字符 onfocus=this.blur();
onclick="return newverifypic();"
href="http://hi.baidu.com/333su/blog/item/23b5c409444820276b60fbbe.html#">看不清?</A>
</DIV></TD></TR>
<TR>
<TD class=f14 vAlign=top> </TD>
<TD class=f14 vAlign=top><INPUT id=btn_ok tabIndex=5 type=submit value=发表评论 name=btn_ok></TD></TR></TBODY></TABLE></FORM></DIV><BR></DIV>
<TABLE height=8 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD class=modbl width=7> </TD>
<TD class=modbc> </TD>
<TD class=modbr width=7> </TD></TR></TBODY></TABLE></DIV></DIV></DIV></DIV>
<SCRIPT language=javascript><!--var hstr="/333su/brwstat?key1=1";document.write("<script src='"+hstr+"&key2="+allkey+"'><\/script>");//--></SCRIPT>
<BR>
<CENTER>
<DIV id=ft>©2008 Baidu</DIV></CENTER>
<SCRIPT>if(document.getElementById("m_blog")){ var imgarray = document.getElementById("m_blog").getElementsByTagName('img'); var imgw = document.getElementById("m_blog").offsetWidth; imgw =imgw-40; for(var i=0; i<imgarray.length; i++){ if(imgarray[i].className=="blogimg" && imgarray[i].width>=imgw) imgarray[i].width=imgw; }}// Fix ff bugsvar blog_text = document.getElementById('blog_text');blog_text.innerHTML = blog_text.innerHTML.replace(/href\s*=\s*("|')?(\.\.\/\.\.\/)/gi,"href=$1../$2");</SCRIPT>
</CENTER><IMG style="DISPLAY: none" src=""> </BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -