Imports System.TimeSpan
Public Class MyTimespan
Public Days As Integer
Public dTime1 As Date
Public dTime2 As Date
Public Hours As Long
Public Minutes As Long
Public Seconds As Long
Public Sub SetTimeCha()
Dim d1 As New DateTime(dTime1.Ticks)
Dim d2 As New DateTime(dTime2.Ticks)
Dim ts1 As New TimeSpan(d1.Ticks)
......................
阅读全部
|
xyxcc177
贴于 2017年7月21日 13:43
hide
bbsi
Public Function ShowDir(MehWnd As Long, DirPath As String, Optional Title As String = "请选择文件夹：", Optional flage As Long = &H1, Optional DirID As Long) As Long
Dim BI As BROWSEINFO
Dim TempID As Long
Dim TempStr As String
TempStr = String$(255, Chr$(0))
With BI
.hOwner = MehWnd
.pidlRoot = 0
.lpszTitle = Title + Chr$(0)
.ulFlage = flage
End With
......................
阅读全部
|
雨水一盒c
贴于 2017年6月10日 11:02
hide
bbsi
Option Explicit
Public Matlab As Object
Dim mreal(0, O) As Double
Dim minnag(0, 0) As Double
Private Sub Form_Initialize()
Set Matlab = CreateObject("matlab.application")
End Sub
'创建MATLAB的实例，初始化以及定义变量
Private Sub Commandl_Click()
'按下Command按钮后
......................
阅读全部
|
瓷娃娃
贴于 2017年5月28日 10:56
hide
bbsi
#include <stdio.h>
struct Student
{
int num;
char name[20];
float score[3];
float aver;
};//这里要分号的 把这个结构体放到main函数之前
int main()
{
void input(Student stu[]);//这3行放到结构体Student后面 且可以不加关键词struct
Student max(Student stu[]);
......................
阅读全部
|
hhhqpalzm
贴于 2017年4月24日 10:35
hide
bbsi
VB6.0 读取文本第二行的信息
Private Sub Form_Load()
Dim s1 As String
Dim s2 As String
Open "d:\data.txt" For Input As #1
Line Input #1, s1
Line Input #1, s2
Label1.Caption = s2
Close #1
End Sub
阅读全部
|
secondi
贴于 2017年3月25日 18:44
hide
bbsi
'Data为字符型数组 start为开始点 size 为几个,返回的即为 CRC
Public Function CRC16(Data() As Byte, start As Integer, size As Integer) As Long
Dim CRC16Lo As Byte, CRC16Hi As Byte 'CRC寄存器
Dim CL As Byte, CH As Byte '多项式码&HA001
Dim SaveHi As Byte, SaveLo As Byte
Dim i As Integer
Dim Flag As Integer
CRC16Lo = &HFF
CRC16Hi = &HFF
CL = &H1
CH = &HA0
For i = 0 To size - 1
......................
阅读全部
|
yangfw54
贴于 2016年8月31日 10:20
hide
bbsi
Private Sub Command1_Click()
Dim InDatExcel As Excel.Application
Dim InDatBook As Excel.Workbook
Dim InDatSheet As Excel.Worksheet
CMDialog.CancelError = True
On Error GoTo ErrorLine
CMDialog.FileName = "" '
CMDialog.Flags = 4096
CMDialog.Filter = "Data File(*.xls)|*.xls"
CMDialog.FilterIndex = 1
CMDialog.DialogTitle = "选取要导入的数据文件(*.xls)"
CMDialog.Action = 1
......................
阅读全部
|
凤城玫瑰
贴于 2016年8月9日 11:37
hide
bbsi
使用输入框输入N的值，当N为奇数时求1+2+3+......+N；当N为偶数时求2+4+6+8+.....+N;结果用消息框提示，VBA编程
阅读全部
|
南岸少年
贴于 2016年6月18日 22:12
hide
bbsi
’用vb6写的，一个Frm_Main窗口一个ListView控件一个Timer控件
’Frm_Main代码
Private Sub ListView1_BeforeLabelEdit(Cancel As Integer)
heaphwd = GetProcessHeap() '获取调用过程堆句柄
End Sub
Private Sub Timer1_Timer()
Dim ret As Boolean
On Error Resume Next
ret = InternetGetConnectedState(0, 0)
If ret Then
GetNetState
......................
阅读全部
|
唯月
贴于 2016年5月20日 10:53
hide
bbsi
Dim i As Long
Dim temp As String
i = 0
Open App.Path & "test.txt" For Input As #1 '读取txt文件中的内容
Do While Not EOF(1)
Line Input #1, temp
i = i + 1
For j = 1 To Len(temp) '测试一行内所有数据
......................
阅读全部
|
chen123free
贴于 2015年6月17日 10:18
hide
bbsi