本人在模具设计，在VB方面不熟悉，模具设计方面的编程知道一二，请知道这方面的
帮忙更改一下，不胜感激

Combo1.List现在是写在程序里面，需要是读外面的文件




Dim aa As Integer



Private Sub Command1_Click()

  Open "C:\kkk.dat" For Output As #1
  Print #1, Combo1.Text
  Close #1
  Unload Me

End Sub

Private Sub Form_Load()
Form1.Caption = "零件属性"

'Combo1.List的名称读C:\CLQD-2015.dat，CLQD-2015.dat里面的项目需要实现可以增加和减少。
'按确定键后，Combo1.Text导出到C:\kkk.dat，这已经实现了，还需要做一步，这我不知道怎么
'实现，Combo1.List里面的项目重新导出到CLQD-2015.dat里面，Combo1.Text是在第一位，其它的
'按照次序，这样可以实现一个记忆的功能，上次运行后的Combo1.Text还是排在第一位。

'另外，CLQD-2015.dat里面的项目增加，是否可以在Combo1.Text采用手工输入，如和其它的Combo1.List有不同，
'就记录在CLQD-2015.dat里面

Combo1.List(0) = "Cr12MOV"
Combo1.List(1) = "2344"
Combo1.List(2) = "8407"
Combo1.List(3) = "H13"
Combo1.List(4) = "Cr12"
Combo1.Text = Combo1.List(0)

aa = 1

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'Cancel = 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
'Cancel = -1
End Sub

[ 本帖最后由 jqs888 于 2015-10-8 09:06 编辑 ]

利用Combo的AddItem可以随意添加选项
多个方法可以实现，一个是Combo_click中直接将List(0)和选中的内容调换，选中的永远是0。或者在导回到文本的时候选导入.text。后面循环导入其他，if判断跳过当前选中等。
我印象中是可以的，不过很少这么做。你自己试试。

[ 本帖最后由 xiangyue0510 于 2015-10-7 11:32 编辑 ]

我在模具设计软件里面是可以实现到，但VB我不熟悉我，采用VB是做外挂的界面，请您把我做的更改一下
实现这功能，谢谢，

2015-10-07-材料清单命名.zip

如有知道的，请帮忙更改。

自己顶一下，求解决方法