subzero的专栏

研究了xaudio的sdk包，发现vb6能很方便的调用它，所以写了这个例程，只使用了xaudio.dll的一部分函数，同理可以使用其它的。调用dsound控制发声。以下代码，原c代码部分保留用以对照。btw，这个东西应该是03年写的了，所以也差不多快忘了，有想研究的朋友可以去xaudio的主站下载xaudio的c的开发包对照来看。frmMain.frmVERSION 5.00Begin VB.Fo

去年接触了联通的“定位之星”增值业务，客户端都是php的（说到php，真的发现以前太小看php了，功能还是很强大的，呵呵），因为联通不开通开发测试，所以自己写了这个模拟器，功能非常简陋，纯粹是为了测试通信存在。废话少说，源码贴上（赘姆烂壳的老规矩，没多少注释）frmMain.frmVERSION 5.00Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D

创建无关硬件的555或565格式的16bit的surface，请看以下代码 Public Sub InitDX(ByVal hWndMain As Long)    Initialization procedure    Set objDD = objDX7.DirectDrawCreate("")    With objDD        .SetCooperativeLevel hW

关于vb字符串操作的优化比较以下两段代码：1.dim i as integer, str as stringfor i=1 to 10000  str=str & cstr(i)next2.dim i as integer, str as string,pos as longstr=space(9*1+90*2+900*3+9000*4)for i=1 to

直接写屏似乎是dos时代的事情了，其实vb也可以，以下是我的sznes模拟器的一部分代码，请注意红色部分      Dim bScreen() As Byte    Dim ddrval As Long    Dim r1 As RECT    Dim r2 As RECT    objDX7.GetWindowRect frmMain.hwnd, r1    r1.Top = r1.

 连接字符串如下：Provider=OraOLEDB.Oracle.1;Persist Security Info=False;Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=xx.xx.xx.xx)(PORT=1541)))(CONNECT_DATA=(SERVICE_NAME=servicename))