Private Sub MSComm1_OnComm()
Dim rcv_array() As Byte
Dim strkk As String
Dim ss As String
Dim rcv_len, i, j As Integer
rcv_array = MSComm1.Input
rcv_len = UBound(rcv_array)
ReDim rcv_array(0 To UBound(rcv_array)) As Byte
rcv_array = MSComm1.Input
For i = 1 To rcv_len
......
我希望程序的窗口中除控件外其他部分都透明，请问这个怎样实现啊？
我试过用SetLayeredWindowAttributes 这个API函数使窗口透明，但是控件都看不见了。
或者我在窗口中用API函数画了个图，怎样使图画以外的部分都透明啊，即只显示图画部分。
知道的朋友帮帮忙，谢了。
谢谢了
刚试了下 好像可 ......
VB 或 bat 获取指定ftp空间文件目录 代码？急求！
我已找到了工程代码，上传到了http://good.gd/408123.htm ，还有一个新问题就是如何将TreeView1 控件用list1代替啊？(同时去掉ImageList1)欢迎高手下载修改后，再上传到该网盘，留下下载地址。谢谢！
没时间帮你写，你自己查查百度吧！帮顶
为啥要将TreeView1 控� ......
偶尔出现的access violation错误，MDI主窗体有2个菜单按钮打开子窗口时偶尔出现，完全是随机性，
单步调试的时候不会出现错误（我试过几百次，都没错误）
某个错误的按钮代码：
procedure TMainForm.N48Click(Sender: TObject);
begin
if not Assigned(Data_xz_Form) then
& ......
我看了下，只有个日期/时间的字段类型，我像下图这样设置后，插入一行数据:"2010-03-02"
但是用前台开发的程序查询时显示为：
“2010-03-02 00:00:00”
请问有什么办法把这个00:00:00去掉？
在数据库中插和一个表，记录时间，然后加入 <%=Rs("Time")%>
新加一个记录� ......
我想是下拉菜单显示access数据库的船舶表的船舶名后，text2相应显示船舶表中这条船的吨位。我不知道代码怎么写，写在哪里？麻烦各位了告诉我一声，谢谢各位
Private Sub Form_Load()
bAdd = False
Dim strsql2 As String
Dim rs As New ADODB.Recordset
strsql2 = "select * from [船舶表] order by id ......
最新文章 :