| |
|
|
- Página 1 - |
|
Bamboo | Mein Programa speichert Geburtstage y zwei Termineinträge. Nun hätte Me gusta, dass el Programa automáticamente startet, si una datumsgleicher Eintrag vorliegt. Geschrieben en XProfan Gracias en el Voraus para Antwort y Ayuda |
|
|
| Manche Menschen werden deshalb schlecht, weil es ihnen zu gut geht. | 24.07.2016 ▲ |
|
|
|
|
| |
|
- Página 1 - |
|
Bamboo | Jörg Su Code, con "=" erweitert, producido una Fehlermeldung. "Zuwenig Parámetro..." Mein Code schreibt correcto en el Registry (CCleaner bajo "Autostart" nachgesehen), aber entonces hakt lo. Der Start des real Programmes bricht con el Fehlermeldung 104 de ??? |
|
|
| |
|
|
|
Jörg Sellmeyer | Ah - ok. Como tener Yo mich vertan.
Como genau se porque el Startaufruf su Programmes aussehen? Es de deinem Codeauszug no hervor y el Informationen puede ser bisher sólo raten. |
|
|
| |
|
|
|
Bamboo | Jötg An se bastante simplemente y a para Choque klappt el en efecto. Code-Kurzform: Asignar #1,datei$ RESET #1 WHILENOT EOF(#1) INPUT #1,txt$ IF LEFT$(date$(0),5) = txt$ RUN programm$ ENDIF ENDWHILE CLOSE #1 FIN Im Hauptprogramm se entonces una Gridbox con el vorhanenen Tagesdaten geöffnet. Das funktioniert auch, si yo el Programa con Haga doble clic en starte. En RUN programm$ Choque Hab con beiden Alternativen GETDIR$("@") oder $PROGDIR intenta. Immer el gleiche Ergebnis - Fehler 104 Mein Verdacht Es el Listview.dll |
|
|
| Manche Menschen werden deshalb schlecht, weil es ihnen zu gut geht. | 24.07.2016 ▲ |
|
|
|
|
Michael W. | "Dateikennung fehlt" oder "Datei no para Lesen geöffnet"
GETDIR$("@") -- debería en neuen Betriebssystemen no genutzt voluntad
Und el qué Usted como geschrieben hast, se el porque en el Programa- verzeichnis gespeichert (el uno evtl. no Rechte ha)?
Oder en el Datenverzeichnis (bajo $AppDataDir) |
|
|
| |
|
|
|
Bamboo | Michael El Declaration datei$ es en el Hauptprogramm y ruft el CSV-Expediente con el Einträgen en. Sie es en el Unterverzeichnis INS_DATEN disponible y todos Pfade son correcto angegeben. Es me una Rätsel, por qué el eigentliche Programa con Haga doble clic en startet, aber con RUN programm$ no. |
|
|
| |
|
|
| |
|
- Página 2 - |
|
|
Michael W. | Wir wissen weder qué en "programm$" todavía qué en "control$" genau es. Deshalb puede wir hier sólo Rätsel raten.
run - ruft windowsprogramme en
más gibts todavía
%ExitCode, GetExitCode, Shell, ShellExec, WinExec, WinExecWait
Bajo X2 gibts $AppDataDir todavía no, como kann dies helfen
|
|
|
| System: Windows 8/10, XProfan X4 Programmieren, das spannendste Detektivspiel der Welt. | 24.07.2016 ▲ |
|
|
|
|
Jörg Sellmeyer | Mit run kann natürlich auch una Profanprogramm auggerufen voluntad. Usted wirst aber ya genauere Angaben hacer necesario, como Michael ya geschrieben ha. Yo seh auch en deinem Code no Aufruf el Listview.dll. Also ebenfalls sólo Kaffeesatzleserei de unserer Página. |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 24.07.2016 ▲ |
|
|
|
|
Bamboo | Jörg Sellmeyer (24.07.2016)
Mit run kann natürlich auch una Profanprogramm auggerufen voluntad. Usted wirst aber ya genauere Angaben hacer necesario, como Michael ya geschrieben ha. Yo seh auch en deinem Code no Aufruf el Listview.dll. Also ebenfalls sólo Kaffeesatzleserei de unserer Página.
Es correcto. Mit RUN rufe Yo sí el eigentliche Programa en y como se sí entonces auch el Listview.dll declariert. Puedo sí schlecht ca. 9.000 Zeilen Code hier puesto. Muss also más "wurschteln" - denke veces, dass Yo irgendwann el Fehler gefunden habe. Werde mich entonces informe. ...a denne |
|
|
| |
|
|
|
RICOSCH | podría el el problem ser ??
kanns ahora nich en el schnelle prüfen
WHILENOT EOF(#1) INPUT #1,txt$ IF LEFT$(date$(0),5) = txt$ RUN programm$ ENDIF ENDWHILE CLOSE #1 FIN
con run beendest du sí el propio Programa , una winexec con anschließendem end en deinem Programa wäre wohl mejor. oder du beendest sólo el schleife z,b
check% = 0 WHILENOT EOF(#1) INPUT #1,txt$ IF LEFT$(date$(0),5) = txt$ ((RUN programm$)) check% = 1 ENDIF ENDWHILE CLOSE #1 caso check% = 1:RUN programm$ FIN
glaube algo como auch ya gehabt a haben, el una RUN de el Bucle probleme macht.
veces Por favor, testen y gegebenfalls mich berichtigen si yo daneben liege. |
|
|
| |
|
|
|
Bamboo | Gracias para el Tipp Werde mich heute mittag así beschäftigen y luego Bescheid geben. Unmöglich es el no. Wirklich interessanter Vorschlag ! |
|
|
| |
|
|
|
Bamboo |
RICOSCH Su Tipp ha ya veces geholfen. Jetzt klappt el Start. Man muss also sólo WHILE durchlaufen dejar y si entonces Check% en 1 es, funktioniert el Sache ! Aber como el así es, igual una neue Cuestión a el Experten: Mein Tool arbeitet con uno XProfan-Gridbox. El es normal en 1. Spalte sortiert. Mi Grid ha 31 Spalten y el debería todos sortierbar ser. Es auch encima SortList "|",x%,1 - Leider necesario dafür Extra-Buttons creado voluntad. Im Moment Yo el como en el anhängenden Bild gelöst (lo fehlen todavía unos pocos Buttons) Wenn me ahora alguien veraten kann, Yo el Spaltenköpfe a Buttons umgestalten y luego todavía en esta zugreifen kann, schließe Yo, el- oder diejenige en mein Abendgebet una. ...y Nein, Yo voluntad no con el Listview.dll de Frank Abbing trabajo. |
| 40 kB | | Bezeichnung: | Beispiel | | Kurzbeschreibung: | Vorläufige Ansicht | | Hochgeladen: | 26.07.2016 | | Ladeanzahl: | | | | Descargar |
|
|
| |
|
|
|
Thomas Freier | In el plv_pcu müßte una Sortierbeispiel ser: [...]
' Autor: Thomas R.
'
' HitSortsLV(lvHdl&) Sortiert el Inhalt uno Listviews
' lvHdl& = Handle des Listviews
$U plv.pcu = plv.
' Función
Def ZufallsText(0) chr$(rnd(26)+65)+chr$(rnd(26)+65)+chr$(rnd(26)+65)
Def ZufallsZahl(0) chr$(rnd(10)+48)+chr$(rnd(10)+48)+chr$(rnd(10)+48)
Proc ZufallsZahlText
Declarar ZZ_Erg$,ZZ_ZWErg$
WhileLoop 1,3,1
If (rnd(2 + 1) - 1)
ZZ_ZWErg$ = chr$(rnd(26) + 65)
' Case (ZZ_ZWErg$ = "0"): ZZ_ZWErg$ = Chr$(160)
ZZ_Erg$ = (ZZ_Erg$ + ZZ_ZWErg$)
Más
ZZ_Erg$ = (ZZ_Erg$ + chr$(rnd(10) + 48))
EndIf
EndWhile
Volver ZZ_Erg$
ENDPROC
Declarar lv&
Cls
lv& = plv.CreateListView(%hwnd,"",10,10,500,350,RGB(0,0,0),RGB(255,255,255),RGB(255,255,255),0,0,0,0)
plv.SetHeader(lv&,3,"150|150|150","Spalte 1|Spalte 2|Spalte 3")
WhileLoop 0,100
plv.SetRow(lv&, &bucle,(ZufallsZahlText() + "|" + ZufallsZahlText() + "|" + ZufallsZahlText()),-1,0)
EndWhile
'WhileLoop 0,200,2
' plv.SetRow(lv&,&loop,(ZufallsZahl() + "|" + ZufallsZahl() + "|" + ZufallsZahl()),-1,0)
' plv.SetRow(lv&,(&loop + 1),(ZufallsText() + "|" + ZufallsText() + "|" + ZufallsText()),-1,0)
'EndWhile
'WaitInput
'plv.SetHeader(LV&,2,"200|70","Datei|Größe","0|1")
'imprimir "OK"
'plv.ReSetItem(LV&,2,"DatNamX.exe",-1,2)
Sinestar encargado %key = 2
WaitInput
plv.HitSortsLV(lv&)
EndWhile
End
|
|
|
| |
|
|