Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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)


Ïà¹ØÎÊ´ð£º

VBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ

ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾ­Í¨¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË&# ......

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ

²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.

ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......

VBÐÞ¸Ä×¢²á±í

ÓÃVBÔõôֻÕë¶Ôwindows×Ô´øµÄÎļþµÄÓÒ¼üÌí¼Ó²Ëµ¥ È磨.txt .doc)
Õâ¸öÊÇÖ»Õë¶ÔÒÔÕâÁ½¸öΪÀ©Õ¹ÃûµÄÎļþ²Ù×÷
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[Ëæ±ãÆðÃû]\command]
@= ......

vbÐÞ¸ÄDTPicker1ÈÕÆÚÎÊÌâ

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 ......

vb²åÈëÊý¾Ý¿âÖØ¸´ÖµÎÊÌâ

ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖØ¸´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓÐºÃ¶àµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
& ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ