04/06/08 7:42
TSP
ho scritto un programma, in fase di progettazione parte ma quando lo compilo e avvio l'exe no, per farlo partire devo eliminare il seguente codice npl form load, perchè?
If Command <> "" Then
Open Mid(Command$, 2, Len(Command$) - 2) For Input As #1
Text1(TabStrip1.SelectedItem.Index - 1).Text = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
Dim capt() As String
capt = Split(Mid(Command$, 2, Len(Command$) - 2), "\")
TabStrip1.Tabs.Item(TabStrip1.Tabs.Count).Caption = capt(UBound(capt))
TabStrip1.Tabs.Item(TabStrip1.Tabs.Count).ToolTipText = Mid(Command$, 2, Len(Command$) - 2)
End If
Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 3000)
Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 3000)
For x = 0 To Text1.Count - 1
Text1(x).FontSize = GetSetting(App.Title, "Settings", "MainFont", 10)
Text1(x).FontName = GetSetting(App.Title, "Settings", "FontName", "Lucida Console")
Text1(x).FontBold = GetSetting(App.Title, "Settings", "FontBold", False)
Text1(x).FontItalic = GetSetting(App.Title, "Settings", "FontItalic", False)
Next x
Text2.FontSize = GetSetting(App.Title, "Settings", "MainFont", 10)
Text2.FontName = GetSetting(App.Title, "Settings", "FontName", "Lucida Console")
Text2.FontBold = GetSetting(App.Title, "Settings", "FontBold", False)
Text2.FontItalic = GetSetting(App.Title, "Settings", "FontItalic", False)
aaa
