ÎÒÔÚVBÖÐÐèÒªµ÷ÓÃVCµÄDLL£¬ÆäÖÐÓÐÒ»¸ö½á¹¹ÌåÖк¬ÓÐÒ»¸öByteµÄÖ¸ÕëÀ´Ö¸ÏòÒ»´ó¿éµÄÄڴ棬ÎÒÏÖÔÚÒªÔÚ
VBÖзÖÅä³öÒ»´ó¿éµÄÄڴ棬Ȼºó°ÑÄÚ´æµÄÊ×µØÖ·´«¹ýÈ¥£¬ÎÒ¸ÃÔõÑù²Ù×÷°¡£¿
ÎÒÓ¦ÓÃ
Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long
......
ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖظ´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓкöàµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
select .......
)
begin
insert into ......
end
Èç¹ûÄã²åÈëµÄÖµÊÇÄÜÔÚÊý¾Ý¿âÖÐ×öÖ÷¼ ......
ÎÒÓÃMSHFlexgridÏÔʾ²éѯµÃ³öµÄÈô¸ÉÌõÊý¾Ý¡££¨MSHFlexgridÓй̶¨ÐÐ1ÐУ¬Ã»Óй̶¨ÁУ¡£©
ÇëÎÊÔõÑùʹµ±ÎÒÔÚµã»÷ÆäÖеÄijÌõÊý¾ÝµÄʱºò£¬¸ÃÌõÊý¾ÝµÄÄÚÈÝ·Ö±ðÏÔʾµ½FormÖжÔÓ¦µÄÎı¾¿òµ±ÖС£
ÀýÈç,µ±µã»÷MSHFlexgridµÄµÚ4ÐÐʱ£º
&n ......
<Frameset rows="180,*,20" framespacing="0" frameborder="no" >
<frame src="top.aspx" name="nav" frameborder="no" scrolling="no" noresize="noresize" marginwidth="0" marginheight="0" /> ......
VB.NET code:
Private Sub TextBox1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragDrop
Dim str() As String = CType(e.Data.GetData(DataFormats.FileDrop, False), String())
Dim data(8)
TextBox1.Text = str(0)
......
Public Shared Function GetCachedObject(Of TObject)(ByVal cacheItemArgs As CacheItemArgs, ByVal cacheItemExpired As CacheItemExpiredCallback) As TObject
Return DataCache.GetCachedData(Of TObject)(cacheItemArgs, cacheItemExpired)
&nb ......