¸÷λ¸ßÊÖÇëÎÊÈçºÎʹÓÃVB¹Ø±ÕÆäËûÓ¦ÓóÌÐò
ÔÚVS2008ÖУ¬ÎÒÓÃshell´ò¿ªÁËpowerpoint£¬ÇëÎÊÔõôÑùʹÓÃVBÔٹرմò¿ªµÄÕâ¸öpowerpoint£¬Ê¾·¶¾ßÌåµÄAPI£¬Ð»Ð»£¡
0)
End If
Loop While (ProcessNext(hSnapShot, pe32))
CloseHandle (hSnapShot)
GetTargetProcessID = dwRet
End Function
Private Function CloseTargetProcess(ByVal dwProcessID As Long) As Boolean
Dim hProcess As Long
Dim lpExitCode As Long
hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, dwProcessID)
If hProcess = 0 Then
CloseTargetProcess = False
Exit Function
End If
If GetExitCodeProcess(hProcess, lpExitCode) = 0 Then
CloseTargetProcess = False
Exit Function
End If
If TerminateProcess(hProcess, lpExitCode) = 0 Then
CloseTargetProcess = False
Else
CloseTargetProcess = True
End If
CloseHandle (hProcess)
End Function
Private Function CloseProcess(ProcessName As String)
On Error Resume Next
Dim ret As Long
ret = GetTargetProcessID(ProcessName)
If ret <> 0 Then
ret = CloseTargetProcess(ret)
End If
End Function
'µ÷ÓÃ
Call CloseProcess("powerpoint.exe") 'ÕâÀïµÄ½ø³ÌÃû±ØÐëÒ»ÖÂ. ´óСд¶¼ÒªÒ»Ñù
ллÁË£¬²»¹ýºÃÏñÄã˵µÄÄÇЩ²»ÊÇVS2008Öеģ¬ÏµÍ³¶¼²»ÈÏʶÕâЩOpenProcessµÈµÈµÄ
²»»áVBµÄÈËԱ·¹ý£¡°ï¶¥£¡
VB code
Code highl
Ïà¹ØÎÊ´ð£º
¸÷λ´óϺ£º
ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not ......
°ÑÒÑÓÐÊý¾Ý£¨Êý¾Ý´óÓÚ20ÐУ©µÄRS(recordset)µÄµÚ10ÐÐÊý¾ÝÓëµÚ11ÐÐÊý¾Ý×ö¼Ó·¨ºó£¬É¾³ýµÚ11ÐеÄÊý¾Ý£¬È»ºó°ÑºóÃæµÄÊý¾ÝÏòÇ°ÒÆ¡£
RSµÄ»°ÐÞ¸ÄÊý¾ÝÊÇ»á¸üÐÂÊý¾Ý¿â£¬ÏÖÔÚµÄÎÊÌâÊÇRSÀïµÄÒÑÓÐÊý¾ÝÊÇÓÃSQLÓï¾ä·ÖÀàͳ¼Æ³öÀ´µÄ ......