MonthCalendar2(destine,2005,7) CategoryWebLogDestine
2005-07-20
Databases and Tools for 3-D Protein Structure Comparison and Alignment
2005-07-18
여러 프로그램 연결
Dim progList(1) As String dim FileName as String Option Explicit Private Sub cChoose_Click() Dim Excu As Long Excu = Shell(progList(cChoose.ListIndex)+ FileName , vbNormalFocus) End End Sub Private Sub Form_Load() FileName=Command '<===================================== !!! 추가 !!! progList(0) = "C:\Progra~1\namo\we.exe " progList(1) = "C:\Progra~1\Micros~1\explorer\ie.exe " cChoose.AddItem "namo" cChoose.AddItem "explorer" End Sub Private Sub Form_Unload(Cancel As Integer) Unload Me End Sub