- 博客(18)
- 资源 (13)
- 收藏
- 关注
RSS订阅原创 VB.NET 通过vbs发送微信消息
最近在用石英管搭建高压放电实验，没有什么很特殊的目的性，想看看放电的状态及在采集卡上的反应怎样，虽然心里知道只有1%的可能，但还是值得为此一看，看看大自然的现象及魅力，祝自己好运！......
2022-07-27 10:31:17
2583
原创 VBNET 添加MQTTnet
右键“1”解决方案，再左键选择“2”管理解决方案NuGet程序包，在“3”位置输入MQTTnet，搜索可以在线安装也可以从网站离线下载，安装以后如图示。安装时最好打开VPN链接国外链路，下载包会很快，国内的可能会卡或下载失败。安装完以后，会出现以上依赖项，里面已经看到，安装上MQTT的相关项。...
2021-05-05 21:57:59
751
原创 vb.net Listbox控件横轴的进度条问题
RT，直接上内容：网络上查找了很久，还是MSDN比较给力，感谢大牛的指引，以下方式挺好用的；Listbox.HorizontalScrollbar = "True"Listbox.IntegralHeight = Truefor i=0 to listbox.items.count-1 Dim len As Integer=Val(Listbox.CreateGraphics...
2020-04-06 21:22:36
299
原创 vb.net udp通信指定本地与远程端口发送
2年前用到udp通信，但是本地端口没有指定，后面没有继续，也不了了之；时隔这么久，又有个用UDP通讯的项目；回顾了一下，不解决本地端口绑定是不行的，这个整么理解，即本地我们以8888端口发送到远端8888端口，不是任意指定一个随机本地端口发送到远端8888端口，言归正传，上马，当我们要发送字符或16进制时，如下，当这个模式发送的时候，接收端显示发送端口为随机端口；Di...
2020-03-26 17:41:04
1378
原创 vs2010 添加nupkg文件
起因呢是这样的：以前一直用破解版的Teechartd，其实这个问题也不大，也挺好的，只是因为它是破解的嘛；这不近期有个中美贸易战，对知识产权这块也非常重视，所以在这个开发中就考虑到我们未来远大的梦想，我们是仪表行业，会涉及到对外出口，呼呼~~于是乎询了正版的Teechart中国的代理商，本以为简单的给个序列然后添加上dll就完成了，结果，对方小姑娘发来一个.nupkg的试用包，说实话，这都...
2020-02-13 11:39:27
3294
原创 vb.net 通过内置资源方式在程序内实现注册控件
之前有用到Teechart控件测试与应用，是在网上下载的，在此也特别感谢他，他把OCX控件封装到了程序里面，一键注册使用，开启了我的最初的使用，后面我也一直没有去研究过这类具体要怎样弄，直到前几天，MERS疫情，待在家中，我需要把现在的程序优化以后，虽然之前那位仁兄做得挺好，我还是要考虑下我的话怎么封装和释放需要的OCX或DLL等文件，如图，只是以Teechart为例：添加...
2020-02-13 11:32:24
509
原创 准备开始进行Python的尝试
很久之前（3年）听同学讲过PYTHON是世界上最好的语言？问号？？我觉得没有绝对的吧，因为我做的是仪表行业，主要涉及上位机开发，沿用大学学习下来的语言，使用vb.net开发，在语法基础上熟悉了C++,C#的应用，基本应用都还行，而且是些大型仪表应用，在各大石化现场经历了考验。有些东西是很有趣的，值得我们去不断探索与尝试。想想今后，我应该会把它应用到化工类智能智慧应用上面，怎么方便怎么快...
2019-11-17 09:49:17
64
原创 对于VB.NET 写windows 服务的权限。（可以对C盘等进行读写等等）
1.首先进入项目属性2.在安全性选项中，启用ClickOnce 选项3.在Properties 中打开 app.manifest4.把requestedExecutionLevel节点的level修改为requireAdministrator5.修改完毕后，返回第二部 ，把 启用ClickOnce 选项 的对勾去掉，大功告成。ps： 权限级别...
2019-05-31 14:35:09
923
原创 24bit有符号数据转换为整形数据
24bit数据转换为int型即3个字节， HH MM LL当数据是正数时，直接转换为int；当数据是负数时，需要先把当前数取反，再+1，得到的新数据再转换为int，最后加“-”号；判断3字节数据为负数的方式，即HH（高）字节最高位是否为1，为1则为负。20190227 晚整理...
2019-02-27 23:20:29
1618
原创 vb.net窗体位于屏幕中间
以前直接在属性里面改的，今天尝试用代码实现，写在load里面，怎么也没有反应，于是请教大牛，发现需要如下： Public Sub New() InitializeComponent() Me.Size = New Size(800, 600) Me.StartPosition = System.Windows.Forms.FormStar
2017-07-19 11:34:17
2746
原创 vbnet button按钮背景透明
今日写个标签，需要把把Button设为透明，留下可用部分百度了一个图标，用Ps把图截取并处理，下面开始透明应用：1、选取好自己已经编辑好的图片并应用；2、修改 FlatAppearance属性下的BorderSize 为0；（此处是作用与边框的参数）3、修改 FlatStyle 的属性为 Flat；（此处作用于透明背景）4、把Text值设为空。如上图，没有边框，没有
2016-10-07 15:00:54
3965
4
原创 WinCE下打开外部程序（VBNET）
WinCE下打开外部程序（VBNET）1、引用Imports System.IOImports System.Reflection2、本地路径（参考）Dim mypath As String = Path.GetDirectoryName(Assembly.GetExecutingAssembly().GetName().CodeBase).ToString
2016-07-13 08:46:16
597
原创 wince部署失败内存不足问题
这几天开发WINCE应用，以便用于快速开发产品。在调试WINCE程序时部署失败，内存不足；这种情况是因为板子自身内存不足，但是可以通过下面设置解决；修改下vs2008的设备设置，把“部署.NET Compact Framework 的最新版本(包括 Service Pack)(D)”前面的勾去掉即可；
2016-06-24 11:24:40
697
原创 关于位判断的问题
代码写了很久，测试时没发现问题，实际运行中发现没有动作，经过摸索与尝试，发现如下规律：例（VB.NET）： Dim a As Integer = 4112 ‘对应二进制为 1000000010000 If ((2 ^ (4))).ToString And a = (2 ^ (4)).ToString Then MsgBox(
2016-05-09 09:13:48
332
原创 vs2010安装失败的问题
今天有软件到期，无法再次使用，逼不得已恢复系统，这时候安装vs2010到.net4安装时候卡顿，一中午时间，安装--进度条卡住，强制退出，安装--进度条卡住，强制退出，再安装，这个过程重复了3次，疑惑是，系统虽然还原，但是已经装了.net4。网上找了一下，关键点来了。重启，进入C:\WINDOWS\，将SoftwareDistribution文件夹重命名或删除，然后再行安装，好了！感谢前辈
2016-03-08 15:58:48
617
翻译 vbnet 修改系统时间
Imports System.Runtime.InteropServices '修改系统时间用1、API 方式 'api函数声明 _ Public Shared Function SetSystemTime(ByRef time As SYSTEMTIME) As Boolean End Function _ Public Struct
2015-03-25 11:09:00
1557
原创 vbnet 句柄解决创建大于分辨率的窗体
因项目需要，要创建个窗体大于分辨率，几经折腾，实现，现记录于此； Declare Auto Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Int32, ByVal nIndex As Int32, ByVal dwNewLong As Int32) As Int32 Decla
2015-03-24 15:59:28
823
西门子PLC通信
2012-01-03
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人