vb.net 利用反射实现NotifyIcon托盘控件左键单击显示菜单

因为 NotifyIcon 控件只能使用鼠标右键才能显示菜单,那如何让其支持鼠标左键显示菜单呢???

Private Sub NotifyIcon1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick
    Select Case e.Button
        Case Windows.Forms.MouseButtons.Left
            ' 这个方法不能很好解决内容菜单位置问题
            ' 并且对菜单外的鼠标操作没有取消菜单反应
            'ContextMenuStrip1.Show(Cursor.Position)
            
            ' 利用反射动态调用内容菜单的内部方法,完美解决所有问题
            Static mi As Reflection.MethodInfo = GetType(NotifyIcon).GetMethod("ShowContextMenu", Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.Instance)
            mi.Invoke(sender, Nothing)
            
        Case Windows.Forms.MouseButtons.Right
            Return
        Case Windows.Forms.MouseButtons.Middle
        
    End Select
End Sub

- 阅读全文 -

vb.net 载入私有字体、私有字符集

在.NET中载入一个独立的字体文件其实很容易,但如果你想将这个字体文件内嵌到程序之中,则会不可避免地碰到控件字符绘图的深坑。
那么该如何避免这些坑呢?

- 阅读全文 -

vb.net 鼠标拖拽窗体

简单的一个类型,可以让鼠标在窗体内任意位置进行拖拽。

使用方法很简单:

' 让当前窗体可以用鼠标拖拽
Dim dform As New DragForm(Me)

' 是否使用手型鼠标指针
dform.UseHandCursor = True

' 切换启用、关闭
dform.SwitchEnable()

' 关闭功能
dform.DragEnable = False
类型代码如下:

- 阅读全文 -

检测枚举参数(开关)

枚举类型一般情况下多作为描述性质的参数,我们可以组合不同的属性到枚举之中,而且可以很容易地从枚举对象中读取出是否包含指定的参数(开关)。
枚举参数的好处是可以将多个选项值存放到一个变量之中,减少存储空间。
因为在.NET中,一个布尔值(Boolean)就占用4字节,而一个四字节的Integer可以存储高达32个选项开关!

- 阅读全文 -

.NET使用HttpWebRequest连接https时 “基础链接已关闭”的解决方法

今天修改了一下自己以前写的程序,然而在POST数据时却发生了“基础链接已关闭”的奇怪BUG,调试了半天也没有发现原因。

Dim request As HttpWebRequest = WebRequest.Create("https://xxxxxxx/api")
request.Proxy = Nothing    '关闭代理,否则速度巨慢无比
request.Method = "POST"

Dim postdata As String = "POST数据..."
Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postdata)
request.ContentType = "application/x-www-form-urlencoded"
request.ContentLength = byteArray.Length
Dim dataStream As Stream = request.GetRequestStream() '在这里发生错误
dataStream.Write(byteArray, 0, byteArray.Length)
dataStream.Close()

Dim response As HttpWebResponse = request.GetResponse()    
' ...
后来Google了半天,发现可能是默认的安全协议类型 SecurityProtocolType 错误,
因为我这个程序使用的是.net 2.0的环境,其默认的 SecurityProtocolTypessl3+tls1.0协议。
然而这两个协议早已经不安全,所以目前大部分的网站都已不支持这两个协议!
然而.net 2.0的 SecurityProtocolType 的枚举类型中并没有其他协议的参数,只好由我自己查询枚举值,再手动设置到 ServicePointManager.SecurityProtocolType 的全局属性之中了!
' 因为此属性乃是全局属性,只需在使用WebRequest前执行此代码即可
Net.ServicePointManager.SecurityProtocol = 48 Or 192 Or 768 Or 3072 'Ssl3 Tls Tls1.1 Tls1.2

' 貌似用这个参数可以使用系统内最新的安全协议?
Net.ServicePointManager.SecurityProtocol = 2147483647
' .net 4.7以上采用的是系统默认,似乎也是最新的安全协议?
Net.ServicePointManager.SecurityProtocol = SecurityProtocolType.SystemDefault
如果还是发生错误,或者用户的机器显示无效的安全协议,表明该机器需要更新.NET框架补丁:
https://support.microsoft.com/zh-cn/help/3154518/support-for-tls-system-default-versions-included-in-the-net-framework

- 阅读全文 -

.NET 中的可空值类型

在 .NET 中,有引用类型与值类型两种对象类型,而其中值类型是“不可空”的类型,比如你设定一个int i = null,那么它会使用默认值0来为自己赋值。
然而有些时候,我们需要一个可空的值类型(比如数据库中的可空字段),那么该怎么办呢?

- 阅读全文 -

.NET 中的联合体

在C++中,有一种类型名为联合体(亦称共用体),关键字为union,它与结构十分类似,但是它所有的数值全都指向同一个指针。也就是说,当你修改联合体内的某一个数据时,其他数据也会同时改变。
这个类型的好处,在于可以存储某种不确定的数据对象,等到稍后再来分析出该对象的用途。

union MyUnion
{
    char b; //单字节整数,在c语言中用char类型来表示单字节整数
    short s; //双字节整数
    int i; //四字节整数
}
而在 .NET 中,却并没有 union 这个关键字,是不是 .NET 就无法使用联合体呢?
当然不是,否则我干嘛写这篇文章?!

- 阅读全文 -

.NET 4.0框架下的Base64字符转换存在BUG

如果有一个双等号结尾的非法BASE64编码作为参数(如abc==),.NET的 Convert.FromBase64String 函数不仅不会报错,反而还会产生一个意料之外的返回值,对后续程序的执行是一个隐患。
详细资料请参考 https://detunized.net/posts/2019-03-06-base64-decoding-bug-that-is-present-in-all-version-of-.net/

经过我个人的测试,我发现这个BUG仅影响 4.0 以上的版本,反而 2.0~3.5 可以正确发现参数异常,并予以报错。
另外据说最新的 .NET Core 也已经修复了这个BUG,所以请使用 4.0 作为开发框架的童鞋们“注意安全”。

原文给出了一个 .NET 4.7.2 的内部解决方法

// This only works for base64 without spaces or linebreaks.
string Repad(string base64)
{
    var l = base64.Length;
    return l % 4 == 1 && base64[l - 1] == '='
        ? base64.Substring(0, l - 1)
        : base64;
}
不过总觉得哪里有一点不对劲,哈哈~

- 阅读全文 -

【VB.NET】WebBrowser控件增强——WebBrowserExt,拦截所有跳转的URL

.net 默认的WebBrowser控件有时候并不能拦截所有的URL跳转(比如Flash跳转),而本站所提供的 WebBrowserExt 控件则可以拦截所有的跳转事件,并且还可以屏蔽IE内核点击链接时的跳转声。

具体的用法:先复制下面的代码,然后按F5编译运行一次程序,就可以在控件工具栏中找到 WebBrowserExt 控件,拖放或者手动实例化这个控件即可。

新的拦截事件位于 BeforeNavigateBeforeNewWindow 这两个事件中,禁止跳转链接声位于 DisableNavigationSounds 这个属性中!

详细代码:

- 阅读全文 -

將頁面轉換爲繁體

Google Translate

公告

欢迎您光临鄙人的小站,虽然没什么太专业的东西,不过如果本站的文章能让您有所收获、或者仅仅是博您一笑,那么也不枉费我建站的辛苦了!

您可以使用邮件订阅来获得邮件更新提醒。

瞎哔哔

    服务器后台更新,已使用了服务商内置的CDN,缓解最近老是断连的问题。

  • 查看更多...

最新文章

随机文章

最近回复

分类

标签