主题：请求帮助

请老师给看看，怎么能让窗口在固定位置显示。比如窗口的起始点是（1，1）.

Dim name As String = args(0)
Dim title As String = args(1)
Dim desc As String = args(2)

'-----------------不必理会,这些代买用于生产窗口和控件,拷贝过来的---------------
Dim frm As New System.Windows.Forms.Form
Dim Label1 As System.Windows.Forms.Label
Dim Button1 As System.Windows.Forms.Button

Label1 = New System.Windows.Forms.Label
Button1 = New System.Windows.Forms.Button

Label1.Font = New System.Drawing.Font("宋体", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(234, Byte))
Label1.Location = New System.Drawing.Point(10,10)'显示文字位置
Label1.Name = "Label1"
Label1.Size = New System.Drawing.Size(600,700)'文字的位置大小
Label1.TabIndex = 0
Label1.Text = desc

Button1.Location = New System.Drawing.Point(350, 720)'以后取消提示按键的位置坐标
Button1.Name = name
Button1.Size = New System.Drawing.Size(120,60)'以后取消按钮的框大小
Button1.TabIndex = 1
Button1.Text = "以后取消提示"
Button1.UseVisualStyleBackColor = True
AddHandler Button1.Click, AddressOf Button_Click

frm.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
frm.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
frm.ClientSize = New System.Drawing.Size(600,750)'窗口大小'
frm.Controls.Add(Button1)
frm.Controls.Add(Label1)
frm.MaximizeBox = False
frm.Name = name
frm.Text = title
frm.ResumeLayout(False)
'------------------------------------------------

AddHandler frm.Closing, AddressOf Form_Closing

frm.show()
frm_dic.Add(name, frm)

写在最后

 

AddHandler frm.Closing, AddressOf Form_Closing

frm.show()

frm.top = 1

frm.left = 1
frm_dic.Add(name, frm)

提示： 

---------------------------

错误

---------------------------

自定义函数"新建便笺"执行出错，错误信息如下：

System.ArgumentException: 已添加了具有相同键的项。

   在 System.ThrowHelper.ThrowArgumentException(ExceptionResource resource)

   在 System.Collections.Generic.Dictionary`2.Insert(TKey key, TValue value, Boolean add)

   在 UserCode.AfaV5FHIFupro7Zsv(Object[] Args)

---------------------------

确定  

---------------------------

frm_dic.Add(name, frm)

 回复3楼，你是不是修改了【计划管理】的代码？默认是传递_Identify列的值的，此列值不会重复的。