不错的.net 下用API的参考站点地址在:http://www.webtropy.com/articles/Win32-API-DllImport-art9.asp 下面摘抄分类,便于大家直接就拿来用: File, Memory, Process, Threading, Time, Console, and Comm control(kernel32.dll) _hread_hwrite_lclose_lcr
Option Explicit Declare Function GetLastError Lib "kernel32" () As Long 'Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long 'Declare Sub ExitThread Lib "kernel32" (Optional ByVal dwExitCode
多行选中VSFlexGrid的SelectionMode = flexSelectionListBox,现在可以配合Ctrl进行多行选择循环取值用vsflexgrid.SelectedRows 可以得到你选择的行的总数量然后用循环可以得到具体的行中具体列的内容Dim Temp As StringDim i As IntegerFor i =
Option ExplicitPrivate LunarInfo(1 To 150) As Double '从1900-2049年这150年的农历信息码Private SolarMonth(1 To 12) As Integer '阳历12个月的天数Private Gan(1 To 10) As String '农历的天干Private Zhi(1 To 12) As String '农历的地支Private Animal
图:Ping通的情况图:Ping失败的情况下面是源代码(VB6):(完善的出错控制,所以是个好函数)Option ExplicitPrivate Const IP_SUCCESS As Long = 0Private Const IP_STATUS_BASE As Long = 11000Private Const IP_BUF_TOO_SMALL As Long = (11000 + 1)Private
Module Module1 Private WithEvents aemp As part2 Sub Main() Dim chen As New part2("chen lili", 20000) aemp = chen Console.WriteLine(chen.Name" prevouis salary is "chen.Salary)
VB6操作ACCESS文件Option ExplicitConst Dict_DB = "adatabase.mdb"'先要引用Microsoft ActiveX Data Objects 2.8 LibraryPublic cnn As ADODB.ConnectionPublic rst As ADODB.Recordset, rst2 As ADODB.RecordsetPublic cmd As ADODB.CommandPrivate Sub For
VB用API实现各种对话框(总结) 各种对话框(总结)标准对话框(SmDialog)Option Explicit''定义一个全局变量,用于保存字体的各种属性Public Type SmFontAttrFontName As String '字体名FontSize As Integer '字体大小FontBod As Boolean '是否黑体FontItalic A