vb6中 如何使用画板打开一张图片？需要导入什么吗？

Question

谁能写一个，最好能判断windows系统所在分区的，因为各个地方的系统盘不同

Answer 1

Option ExplicitPrivate Declare Function GetSystemDirectory Lib "kernel32.dll" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As LongPrivate Sub Command1_Click()        Dim GetWinSysDir As String * 256
        Dim SystemDir As String '系统目录
        Dim MsPaintPath As String '程序路径
                
        Call GetSystemDirectory(GetWinSysDir, 256)
        SystemDir = Left(GetWinSysDir, InStr(GetWinSysDir, vbNullChar) - 1)
        MsPaintPath = SystemDir & "\mspaint.exe" '程序
        Shell MsPaintPath & " c:\vcd.bmp", vbMaximizedFocus '打开C盘下的位图文件vcd.bmp
        
End Sub