VB按钮快捷键
'VB按钮快捷键
Private Sub Form_Load()
Command1.Caption = "我是Q的快捷键&Q"
End Sub
Private Sub Command1_Click()
MsgBox "你按了Ait+Q"
End Sub
最小化到系统托盘图标
2022-9-20 乱云飞 评论(0) 浏览(169) 标签: VB源码 缩小到系统托盘 最小化到系统托盘
'添加一标准模块，加入以下代码： Option Explicit Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long Const MAX_TOOLTIP As Integer = 64 Const NIF_ICON = &H2 Const NIF_MESSAGE = &H1 Const NIF_TIP = &H4 Const NIM_ADD = &H0 Const NIM_DELETE = &H2 Const WM_MOUSEMOVE = &H200 Const WM_LBUTTONUP = &H202 Const WM_RBUTTONUP = &H205 Private Type NOTIFYICONDATA cbSize As Long hwnd As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String * MAX_TOOLTIP End Type Private nfIconData As NOTIFYICONDATA Public Sub TheTray(Fem As Form) '最小化到托盘 nfIconData.hwnd = Fem.hwnd nfIconData.uID = Fem.Icon '这里确定使用哪个图标 nfIconData.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP nfIconData.uCallbackMessage = WM_MOUSEMOVE nfIconData.hIcon = Fem.Icon.Handle nfIconData.szTip = Fem.Caption & vbNullChar '这里是将鼠标移到图标上时，将显示的文字 nfIconData.cbSize = Len(nfIconData) Call Shell_NotifyIcon(NIM_ADD, nfIconData) Fem.Hide End Sub Public Sub IconResponse(Fem As Form, X As Single) Dim lMsg As Single lMsg = X / Screen.TwipsPerPixelX Select Case lMsg Case WM_RBUTTONUP '鼠标右键按下 '此处添加弹出菜单语句 Case WM_LBUTTONUP '鼠标左键按下 Fem.WindowState = 0 Fem.Show Call UnloadIcon End Select End Sub '将图标从托盘中消除 Public Sub UnloadIcon() Shell_NotifyIcon NIM_DELETE, nfIconData End Sub '-------------------------------------------------------------------------------------- '窗体调用，代码如下： Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Call IconResponse(Me, X) End Sub Private Sub Form_Resize() If Me.WindowState = 1 Then Call TheTray(Me) End If End Sub Private Sub Form_Unload(Cancel As Integer) Call UnloadIcon End Sub '--------------------------------------------------------------------------------------
分享9个在桌面显示时钟、显示滚动字幕、显示LOGO的小软件。
2022-9-18 乱云飞 评论(0) 浏览(2376) 标签: 桌面时钟 桌面logo 桌面标记
视频演示：https://www.bilibili.com/video/BV1LW4y1q7YE/
下载地址：https://lanzoul.com/ijCJE0bqyhih
不用安装监控摄像头，也能看到监控画面！
2022-9-9 乱云飞 评论(0) 浏览(194) 标签: 虚拟监控摄像头作用 ONVIF监控
有网友问虚拟监控摄像机软件的作用是什么，在此回答一下：
不用安装监控摄像头，只需在电脑上安装ONVIF虚拟监控摄像机软件，即可让监控系统显示任何你想让看到的内容！播放广告、宣传片、电脑屏幕、甚至电影电视！更多功能等待您的探索补充。。。
兼容各品牌网络硬盘录像机。
下载地址：http://80c.cc
微软原版系统下载
https://hellowindows.cn/VB调用本机默认浏览器弹出网页
2022-8-30 乱云飞 评论(0) 浏览(141) 标签: 弹出网页 VB代码
Shell "Rundll32.exe url.dll, FileProtocolHandler http://80c.cc/", vbNormalFocus
------------------------------------------------------------------------
rundll32.exe url.dll,FileProtocolHandler http://localhost:8888/screenlive
TPLINK监控摄像机RTSP取流地址
2022-8-24 乱云飞 评论(0) 浏览(195) 标签: RTSP地址 TPLINK监控摄像头 TP-LINK监控 监控取流地址
TP-LINK全系列摄像机均支持通过RTSP协议来获取视频流，取流地址格式如下（双目IPC除外）：
主码流为：rtsp://username:password@ip:port/stream1
子码流为：rtsp://username:password@ip:port/stream2
双目IPC（如TL-IPC55T2、TL-IPC44AN双目变焦版等）的取流地址如下：
通道1主码流：rtsp://username:password@ip:port/stream1&channel=1
通道1子码流：rtsp://username:password@ip:port/stream2&channel=1
通道2主码流：rtsp://username:password@ip:port/stream1&channel=2
通道2子码流：rtsp://username:password@ip:port/stream2&channel=2
图片与文字对齐方式
2022-8-24 乱云飞 评论(0) 浏览(161) 标签: 图片对齐方式 图片上对齐 图片文本对齐 居中对齐
<!doctype html>
<html lang="en">
<head>
<meta charset="UTF-8">
<title>图片与文字的相对位置</title>
<style>
img{
width: 160px;
height: 126px;
margin: 10px;
}
</style>
</head>
<body>
<h3>图片与文字的相对位置</h3>
<!-- absmiddle 图片中间与同一行最大元素中间对齐；
absbottom 图片下边缘与同一行最大元素下边缘对齐；
baseline 图片下边缘与第一行文本下边缘对齐；
bottom 图像下边缘与第一行文本下边缘对齐；
left 图像沿网页左边缘对齐，文字在图像向右边换行；
middle 图像中间与第一行文本的下边缘对齐；
notset 未设定对齐方式；
right 图像沿网页的右边缘对齐，文字在图像左边换行；
texttop 图片上边缘与同一行最高文本上边缘对齐；
top 图片上边缘与同一行最高元素上边缘对齐。-->
<!--图片中间与同一行最大元素中间对齐-->
<img src="../image/ab1.jpg" align="absmiddle"/>
<!--图片下边缘与同一行最大元素下边缘对齐-->
<img src="../image/ab2.jpg" align="absbottom"/>
<!--图片下边缘与第一行文本下边缘对齐-->
<img src="../image/ab3.jpg" align="baseline"/>
<!--图像下边缘与第一行文本下边缘对齐-->
<img src="../image/ab4.jpg" align="bottom"/>
<!--图像沿网页左边缘对齐，文字在图像向右边换行-->
<img src="../image/ab5.jpg" align="left"/>
<!--图像中间与第一行文本的下边缘对齐-->
<img src="../image/ab6.jpg" align="middle"/>
<!--未设定对齐方式-->
<img src="../image/ab7.jpg" align="notset"/>
<!--图像沿网页的右边缘对齐，文字在图像左边换行-->
<img src="../image/ab8.jpg" align="right"/>
<!--图片上边缘与同一行最高文本上边缘对齐-->
<img src="../image/ab9.jpg" align="texttop"/>
<!--图片上边缘与同一行最高元素上边缘对齐-->
<img src="../image/ab10.jpg" align="top"/>
</body>
</html>
嵌入网页代码
Private Sub Form_Load() On Error Resume Next WebBrowser1.Silent = True WebBrowser1.Navigate "http://localhost:8000/#exe" End Sub
chrome/edge浏览器无插件在线播放RTSP测试
实时监控
电脑维修
