VB.NET检测事件委托
vb.net 获取文件的编码格式
php 通过 IPIP.NET 数据库来查询IP地址信息
vb.net 通过 IPIP.NET 数据库来查询IP地址
这篇文章已过时,官方已经不再提供 17monipdb.dat
数据库文件,最后一个.dat版文件为2018年3月释出。
如果您需要dat文件的ip数据库,请点击这里下载由博主分流的文件!
上一次介绍了利用纯真数据库查询IP地址详细信息的方法。
然而纯真数据库是由网友反馈所提供的,很多数据描述并不准确,所以我上网找了一些其他的IP数据库,最后就找到了 ipip.net 这个网站所提供的IP数据库。
17monipdb.dat
文件就是数据库了,我们只需要用到它就可以了。使用方法很简单:
Dim ret = IPIP.Find("127.0.0.1")
' 用换行分隔所有信息
Dim ipdesc = String.Join(vbCrLf, ret)
- 阅读全文 -
vb.net 通过纯真数据库查询IP地址
几年前从某个博客抄来的,已经忘记原地址了,如果需要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)
- 阅读全文 -
类似OpenFileDialog样式的FolderBrowserDialog
.NET 默认的 FolderBrowserDialog 非常不好用,而这个类可以将文件夹选择窗体改成与文件选择窗体一致,更加亲切友好。
调用方法
Using fbd As New FolderBrowserDialog(Me)
If fbd.ShowDialog = DialogResult.OK Then
MsgBox(fbd.DirectoryPath)
End If
End Using
- 阅读全文 -
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 载入私有字体、私有字符集
vb.net 鼠标拖拽窗体
简单的一个类型,可以让鼠标在窗体内任意位置进行拖拽。
使用方法很简单:
' 让当前窗体可以用鼠标拖拽
Dim dform As New DragForm(Me)
' 是否使用手型鼠标指针
dform.UseHandCursor = True
' 切换启用、关闭
dform.SwitchEnable()
' 关闭功能
dform.DragEnable = False
类型代码如下:- 阅读全文 -