摘要：1--点坐标XVBA部分:Dim pGeo As IGeometrySet pGeo = [Shape]Dim pPoint As IPointSet pPoint = pGeo赋值部分:pPoint.X2--点坐标YVBA部分:同上赋值部分:pPoint.Y坐标值为文件存储的固有值,和是否使用On... 阅读全文

摘要：C#发送的socket消息带汉字时，使用Byte类型发送。VB接收时，使用如下代码：Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim bb(1 To bytesTotal) As Byte Dim DD As String Winsock1.GetData bb() DD = StrConv(bb(), vbFromUnicode)End Sub 阅读全文

摘要：VB代码：'------------------------'汉字转拼音缩写'------------------------Public Function GetPYSX(Str As String) As StringOn Error GoTo PROC_ERROR Dim i As Long For i = 0 To Len(Str) - 1 GetPYSX = GetPYSX & GetPYSXChar(Mid(Str, i + 1, 1)) Next PROC_ERROR: Exit FunctionEnd FunctionPublic Functio 阅读全文

摘要：VB代码：'---------------------------'汉字转拼音'---------------------------Public Function GetPY(Str As String) As StringOn Error GoTo PROC_ERROR Dim i As Long For i = 0 To Len(Str) - 1 GetPY = GetPY & GetPYChar(Mid(Str, i + 1, 1)) Next PROC_ERROR: Exit FunctionEnd FunctionPublic Function Ge 阅读全文

摘要：加载图像（LoadPicture函数） LoadPicture函数将图形载入到窗体的Picture属性、PictureBox控件或Image控件。使用语法是： LoadPicture([filename], [size], [colordepth],[x,y]) 参数说明参见表18.9所示。 表18.9 LoadPicture函数的参数说明 参 数 说 明 filename 可选的参数。字符串... 阅读全文