TSP (Ex-Member)
Pro
Messaggi: 99
Iscritto: 17/03/2008
|
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è?
Codice sorgente - presumibilmente VB.NET |
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)
|
|