巫妖天下 - LichSky

关于作者:专注于微软平台项目架构、管理和企业解决方案。熟悉各类技术手段、架构设计、开发和项目管理。现主要从事项目开发、架构、管理工作。

vb json 文字编码器\u7f16\u7801

[CODE_LITE]
Private Sub Command1_Click()

Text2.Text = CodeToUni(Text1.Text)

End Sub


Private Sub Command2_Click()

Text1.Text = UniToCode(Text2.Text)

End Sub


'-----------------字符Unicode编码与反编码----------------------
Function CodeToUni(code)
...

JQuery+JSon+ASP例子

index.htm
[CODE_LITE]




...

doc 查看某个端口 被占情况

netstat -aon|findstr "8080"

VB richTextBox 禁止ctrl+V

[CODE_LITE]
Private Sub Command1_Click()
Text1.Text = Text1.Text & Clipboard.GetText
End Sub


Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyV And Shift = vbCtrlMask Then
MsgBox "请右键粘贴", , "警告"
KeyCode = 0
...
分页:[«]1[»]

Powered By Z-Blog 1.8 Walle Build 100427

Copyright 巫妖天下(lichsky@163.com) All Rights Reserved.