VB基础类
怎么我取的坐标不对啊？ 分数不是问题
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区Private Sub ListView1_DblClick()
Dim dpoint As pointapi
Dim litem As ListItem
Dim x As Single
Dim y As Single
GetCursorPos dpoint
x = dpoint.x - ScaleX(Me.Left + ListView1.Left, vbTwips, vbPixels)
y = dpoint.y - ScaleY(Me.Top + ListView1.Top, vbTwips, vbPixels)
On Error Resume Next
Set litem = ListView1.HitTest(ScaleX(x, vbPixels, vbTwips), ScaleY(y, vbPixels, vbTwips))
If litem Is Nothing Then Exit Sub
If ListView1.View = lvwIcon Or ListView1.View = lvwSmallIcon Then
litem.Selected = True
msg = litem.Text & vbCrLf
For i = 1 To litem.ListSubItems(i).Text & vbCrLf
msg = msg & " " & litem.ListSubItems(i).Text & vbCrLf
Next
MsgBox msg
End If
End Sub
===========================================
怎么他没有MSGBOX啊，我都晕了
X，Y根本就不对
Dim dpoint As pointapi
Dim litem As ListItem
Dim x As Single
Dim y As Single
GetCursorPos dpoint
x = dpoint.x - ScaleX(Me.Left + ListView1.Left, vbTwips, vbPixels)
y = dpoint.y - ScaleY(Me.Top + ListView1.Top, vbTwips, vbPixels)
On Error Resume Next
Set litem = ListView1.HitTest(ScaleX(x, vbPixels, vbTwips), ScaleY(y, vbPixels, vbTwips))
If litem Is Nothing Then Exit Sub
If ListView1.View = lvwIcon Or ListView1.View = lvwSmallIcon Then
litem.Selected = True
msg = litem.Text & vbCrLf
For i = 1 To litem.ListSubItems(i).Text & vbCrLf
msg = msg & " " & litem.ListSubItems(i).Text & vbCrLf
Next
MsgBox msg
End If
End Sub
===========================================
怎么他没有MSGBOX啊，我都晕了
X，Y根本就不对
...全文
相关推荐
图片取点工具 取得图片中某点的坐标
最新项目需要使用图片中的某点坐标,所以花了点时间写了这个小工具
CAD点取坐标生成表格（批量)
CAD点取坐标生成表格（批量)
科研工具-坐标&曲线取点工具
1 首先file open image 2 点击xmin一步步设定xy最小值 3 选择取点 4 输出数据，并最终保存到一定的格式（xls等格式）
！屏幕取坐标工具v1.5.rar
屏幕取坐标工具v1.5，非常好用，自带放大镜，用过的最好的工具。
Materials Studio坐标系实战：如何用笛卡尔和分数坐标优化你的表面计算
本文深入解析Materials Studio中笛卡尔坐标与分数坐标的核心区别及其在表面计算中的关键应用。通过Ni(111)表面弛豫的实战案例，阐明为何固定基底原子时必须选择笛卡尔坐标以避免物理错误，并对比了分数坐标在体相优化等场景中的适用性，帮助用户构建正确可靠的计算模型。
