- 博客(5)
- 资源 (2)
- 收藏
- 关注
RSS订阅原创 VB dde 编程完整 源码
FrmMain.frm VERSION 5.00 Begin VB.Form FrmMain Caption = "DDEsvr" ClientHeight = 1425 ClientLeft = 60 ClientTop = 345 ClientWidth = 4020 L...
2019-09-12 14:49:17
1146
原创 vba将一个excel文件中一列中所有的项导入另一个excel文件
PrivateSubCommandButton1_Click() Application.ScreenUpdating=False Dimwk1AsWorkbook,sh1AsWorksheet,wk2AsWorkbook,sh2AsWorksheet Filename=Application.GetOpenFilename(fil...
2019-09-12 14:42:00
3080
1
原创 asp获取微信公众号用户的头像和微信名及openid源码
<script language="jscript" runat="server"> function getjson(str){ try{ eval("var jsonStr = (" + str + ")"); }catch(ex){ var jsonStr = null; } return jsonStr; } </script> <% '===========...
2019-09-12 14:41:06
759
1
原创 快速排序
#include<stdio.h> void quickSort(int a[],int left,int right) { int i=left; int j=right; int temp=a[left]; if(left>=right) return; while(i!=j) { while(i<j&&a[...
2019-09-12 14:37:05
167
原创 VB与rs485
Option Explicit Dim a1 As String '定义a1为全局变量 Dim bytData(1) As Byte Private Sub cmdSend_Click() Call SendData(bytData) End Sub Public Function SendData(ByRef bytData() As Byte) As Long On Error Resume ...
2019-09-12 14:31:35
950
vb vb6 vb6.0 dde 通信 绝对可用 伪多线程 进程外 源码
2019-08-14
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人