答案 0 :(得分:1)
请参见the documentation for the Icon
匿名对象:
labelOrigin
类型:点
如果标记是由标签提供的,则标签的原点相对于图标图像的左上角。默认情况下,原点位于图像的中心点。
要移动标签,请将Sub Main()
Dim dict As New Dictionary(Of String, Object) From {{"Big", "Small"}, {"Hot", "Cold"}}
Dim dict2 As New Dictionary(Of String, Object) : dict2 = dict
If dict.ContainsKey("Hot") Then 'Only makes changes to dict
dict.Add("Warm", dict("Hot").ToString)
dict.Remove("Hot")
End If
writeDict(dict) 'Displays said changes
writeDict(dict2) 'Displays same changes as dict
End Sub
Sub writeDict(dict As Dictionary(Of String, Object)) 'Ignore this
For Each i As KeyValuePair(Of String, Object) In dict
Console.Write(i.ToString)
Next
Console.ReadLine()
End Sub
的labelOrigin属性设置为所需值。