VB_ÈçºÎʹMSHFlexgridµÄÄÚÈÝÏÔʾµ½Îı¾¿òÖÐ?
ÎÒÓÃMSHFlexgridÏÔʾ²éѯµÃ³öµÄÈô¸ÉÌõÊý¾Ý¡££¨MSHFlexgridÓй̶¨ÐÐ1ÐУ¬Ã»Óй̶¨ÁУ¡£©
ÇëÎÊÔõÑùʹµ±ÎÒÔÚµã»÷ÆäÖеÄijÌõÊý¾ÝµÄʱºò£¬¸ÃÌõÊý¾ÝµÄÄÚÈÝ·Ö±ðÏÔʾµ½FormÖжÔÓ¦µÄÎı¾¿òµ±ÖС£
ÀýÈç,µ±µã»÷MSHFlexgridµÄµÚ4ÐÐʱ£º
µÚ4ÐеÚ3ÁÐÏÔʾµ½Text1£¬
µÚ4ÐеÚ6ÁÐÏÔʾµ½Text2,
µÚ4ÐеÚ9ÁÐÏÔʾµ½Text3.
Private Sub MSHFlexGrid1_Click()
For i = 0 To MSHFlexGrid1.Cols - 1
Text1(i).Text = MSHFlexGrid1.TextMatrix(.Row, i)
Next
End Sub
LeftieÆðµÃºÃÔçѽ
private sub mshflexgrid_click()
with mshflexgrid
text1.text=.textmatrix(.row,2)
text2.text=.textmatrix(.row,5)
text3.text=.textmatrix(.row,8)
end with
end sub
¾Ù×óÊÖ,ҪΪÈËÃñ±Ò·þÎñ!
¹Ø×¢£¡
text1.text=msflexgrid1.textmatrix(msflexgrid1.row,2)
text2.text=msflexgrid1.textmatrix(msflexgrid1.row,5)
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿Ø¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓƵ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌøתµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
¸÷λ´óϺ£º
ÎÒÓÐÒ»¸öVBµ÷ÓÃË®¾§±¨±íµÄϵͳ£¬±¨±íÊÇ×÷Ϊһ¸öDesignǶÔÚVBÀïµÄ£¬½ñÌì·¢ÏÖ´òÓ¡µÚÒ»Õű¨±íÕý³££¬Í¬ÑùµÄÊý¾Ý£¬ÔÚµã´òÓ¡ÔÙµ÷ÓÃÒ»´Î¾Í»á±¨ Memory FullµÄ´íÎ󣬵«ÊÇ ......
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
......