介绍如何使用VB.NET动态加载DLL动态链接库，以及如何设置动态链接库的回调函数...

- 阅读全文 -

在VB.NET中如何检测到一个“事件字段”？！

- 阅读全文 -

注意，此方法并不完美，如果您有更严格的编码判断需求，推荐使用 UTF-unknown 这个类库！

- 阅读全文 -

本文章采用的是 ipip 所提供的 17monipdb.datx(20190109) 文件来查询IP信息，代码来自官方github，我仅做简化与小幅优化！
IPIP 今后将不再提供 .datx 格式的数据库，因此下面的代码今后肯定会过时，如果您需要下载datx数据库，可以点击下方的链接来下载博主为您分流的文件。

- 阅读全文 -

这篇文章已过时，官方已经不再提供 17monipdb.dat 数据库文件，最后一个.dat版文件为2018年3月释出。
如果您需要dat文件的ip数据库，请点击这里下载由博主分流的文件！

---

上一次介绍了利用纯真数据库查询IP地址详细信息的方法。
然而纯真数据库是由网友反馈所提供的，很多数据描述并不准确，所以我上网找了一些其他的IP数据库，最后就找到了 ipip.net 这个网站所提供的IP数据库。

IPIP所提供的数据库有付费和免费两个版本，我们可以直接使用其中的免费版本。
下载地址 https://www.ipip.net/download.html （需要先注册一个帐号）
压缩包内有一个PHP的解析类，还有一个 17monipdb.dat 文件就是数据库了，我们只需要用到它就可以了。

使用方法很简单：

Dim ret = IPIP.Find("127.0.0.1")
' 用换行分隔所有信息
Dim ipdesc = String.Join(vbCrLf, ret)

- 阅读全文 -

几年前从某个博客抄来的，已经忘记原地址了，如果需要C#版的，可以在博客园搜到吧。
我因为自己用，所以转换为了VBNET代码，而且也放置了很久，今天无意间翻出来，就分享给大家吧。

首先，先下载 纯真数据库，数据库文件名应该是 QQWry.dat 。
之后将数据库文件复制到程序的主目录即可。


使用方法很简单，如下：

Dim iploca = IPQuery.Query("127.0.0.1")
Dim ipdesc = String.Format("IP {0} 的详细地址为: {1} - {2}", iploca.IP, iploca.Country, iploca.Local)

- 阅读全文 -

.NET 默认的 FolderBrowserDialog 非常不好用，而这个类可以将文件夹选择窗体改成与文件选择窗体一致，更加亲切友好。

调用方法

Using fbd As New FolderBrowserDialog(Me)
    If fbd.ShowDialog = DialogResult.OK Then
        MsgBox(fbd.DirectoryPath)
    End If
End Using

- 阅读全文 -

因为 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

- 阅读全文 -

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

- 阅读全文 -

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

使用方法很简单：

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

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

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

' 关闭功能
dform.DragEnable = False

类型代码如下：

- 阅读全文 -