vszys的专栏

最近在用石英管搭建高压放电实验，没有什么很特殊的目的性，想看看放电的状态及在采集卡上的反应怎样，虽然心里知道只有1%的可能，但还是值得为此一看，看看大自然的现象及魅力，祝自己好运！......

RT，直接上内容：网络上查找了很久，还是MSDN比较给力，感谢大牛的指引，以下方式挺好用的；Listbox.HorizontalScrollbar = "True"Listbox.IntegralHeight = Truefor i=0 to listbox.items.count-1 Dim len As Integer=Val(Listbox.CreateGraphics...

2年前用到udp通信，但是本地端口没有指定，后面没有继续，也不了了之；时隔这么久，又有个用UDP通讯的项目；回顾了一下，不解决本地端口绑定是不行的，这个整么理解，即本地我们以8888端口发送到远端8888端口，不是任意指定一个随机本地端口发送到远端8888端口，言归正传，上马，当我们要发送字符或16进制时，如下，当这个模式发送的时候，接收端显示发送端口为随机端口；Di...

之前有用到Teechart控件测试与应用，是在网上下载的，在此也特别感谢他，他把OCX控件封装到了程序里面，一键注册使用，开启了我的最初的使用，后面我也一直没有去研究过这类具体要怎样弄，直到前几天，MERS疫情，待在家中，我需要把现在的程序优化以后，虽然之前那位仁兄做得挺好，我还是要考虑下我的话怎么封装和释放需要的OCX或DLL等文件，如图，只是以Teechart为例：添加...

1.首先进入项目属性2.在安全性选项中，启用ClickOnce 选项3.在Properties 中打开 app.manifest4.把requestedExecutionLevel节点的level修改为requireAdministrator5.修改完毕后，返回第二部 ，把 启用ClickOnce 选项 的对勾去掉，大功告成。ps： 权限级别...

24bit数据转换为int型即3个字节， HH MM LL当数据是正数时，直接转换为int；当数据是负数时，需要先把当前数取反，再+1，得到的新数据再转换为int，最后加“-”号；判断3字节数据为负数的方式，即HH（高）字节最高位是否为1，为1则为负。20190227 晚整理...

以前直接在属性里面改的，今天尝试用代码实现，写在load里面，怎么也没有反应，于是请教大牛，发现需要如下：  Public Sub New()        InitializeComponent()        Me.Size = New Size(800, 600)        Me.StartPosition = System.Windows.Forms.FormStar

今日写个标签，需要把把Button设为透明，留下可用部分百度了一个图标，用Ps把图截取并处理，下面开始透明应用：1、选取好自己已经编辑好的图片并应用；2、修改 FlatAppearance属性下的BorderSize 为0；（此处是作用与边框的参数）3、修改 FlatStyle 的属性为 Flat；（此处作用于透明背景）4、把Text值设为空。如上图，没有边框，没有

因项目需要，要创建个窗体大于分辨率，几经折腾，实现，现记录于此；   Declare Auto Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Int32, ByVal nIndex As Int32, ByVal dwNewLong As Int32) As Int32   Decla

Imports System.Runtime.InteropServices '修改系统时间用1、API 方式 'api函数声明      _    Public Shared Function SetSystemTime(ByRef time As SYSTEMTIME) As Boolean    End Function _    Public Struct

代码写了很久，测试时没发现问题，实际运行中发现没有动作，经过摸索与尝试，发现如下规律：例（VB.NET）：        Dim a As Integer = 4112     ‘对应二进制为 1000000010000        If ((2 ^ (4))).ToString And a = (2 ^ (4)).ToString Then            MsgBox(