Option Explicit

'InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
Public Function InputBoxQ(ByVal prompt As String, Optional ByVal title As String, Optional ByVal default As String, Optional cancel As Long, Optional ByVal xpos As Long, Optional ByVal ypos As Long, Optional ByVal helpfile As String, Optional ByVal context As Long) As String
    
    '/cancel 参数就是代表返回值,返回为0表示选择了取消
    '/其它参数和原来InputBox一样
    
    InputBoxQ = InputBox(prompt, title, default, xpos, ypos, helpfile, context)
    cancel = StrPtr(InputBoxQ)
End Function
Private Sub Command1_Click()
    Dim lngQ As Long, strS As String
    strS = InputBoxQ("asdfa", "sdfasf", , lngQ)
    If lngQ = 0 Then
        MsgBox "inputbox choosed cancel"
    Else
        MsgBox strS
    End If
End Sub

Option Explicit

Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Public Function WhichFileSystem(ByVal Drive As String) As String
    Dim sVolBuf As String * 255, sSysName As String * 255
    Dim lSerialNum As Long, lSysFlags As Long
    Dim lComponentLength As Long
    Dim lRes As Long

    lRes = GetVolumeInformation(Drive, sVolBuf, 255, lSerialNum, _
           lComponentLength, lSysFlags, sSysName, 255)
           
    If lRes Then
        WhichFileSystem = Left$(sSysName, InStr(sSysName, Chr$(0)) - 1)
    Else
        WhichFileSystem = ""
    End If

End Function

'/程序功能:禁止窗体移动和改变大小
'/原理:通过删除系统菜单完成

'/石陆软件屋 http://baidu.bzzo.net
'/2008/7/4

Option Explicit

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Const SC_SIZE = &HF000
Private Const SC_MOVE = &HF010
Private Const MF_BYCOMMAND = &H0


'/石陆软件屋 http://baidu.bzzo.net
'/2008/7/4
Private Sub Command1_Click()
Dim hwnd As Long
Dim hMenu As Long
Dim Success As Long
    
    hwnd = Form1.hwnd
    hMenu = GetSystemMenu(hwnd, 0)
    Success = DeleteMenu(hMenu, SC_SIZE, MF_BYCOMMAND) '/删除改变大小菜单
    Success = DeleteMenu(hMenu, SC_MOVE, MF_BYCOMMAND) '/删除移动菜单
End Sub