Wissen, News, Stream und Download zu Eagle Eye Cherry Basic O help
Alles im Web finden: Videos, Software, Bücher, Dokumente, Wissenschaft, Nachrichten
Tarnkappe |
Sentry Eagle: NSA sabotiert gezielt in Deutschlandtarnkappe.info/wp-content/uploads/640px-National_Security_Agency_onwhite-300x300.jpgNSA (Logo) Der US-Geheimdienst NSA hat angeblich Agenten in Deutschland – sowie in Südkorea und China – stationiert, die mit Hilfe von “physischer Subversion” Netzwerke und technische Geräte kompromittieren sollen. Dies berichtet das investigative News-Portal “The Intercept” unter Berufung auf geleakte Geheimdokumente. Die Dokumente wurden von Whistleblower Edward Snowden an die Presse weitergegebenen und sind als streng geheim eingestuft. Demnach gehören die Sabotage-Aktivitäten der NSA zu einem Programm namens “Sentry Eagle”. [+]
Szene NewsTommy Weber |
Trend-Piercing Septum - Eyecatcher oder schmerzhafter Körperkult?Die einen hassen es, die anderen lieben es und für die ältere Generation ist es einfach nur ein etwas abgedrehter Körperkult: Die Rede ist von einem Septum, jenem Piercing, was durch die Nasenscheidewand gestochen wird. So etwas klingt nach großen Schmerzen und es stellt sich die Frage: Warum lassen sich Menschen an einer so prägnanten Stelle, mitten im Gesicht, einen Ring durch die Nase ziehen? Das Septum ist im Trend, wenn es um Piercings geht und es hat, ähnlich wie ein Tattoo, eine sehr lange Geschichte. 57524 Was bedeutet Septum eigentlich? In der Medizin wird eine Trenn- oder eine Scheidewand im Körper mit dem Begriff Septum bezeichnet. [+]
Allgemeines & Sonstigesanalprolaps |
Wischmeyers rechter AbschiedsgrußBvDV0VsbMsg heute show vom 9.sept ------ AW: Wischmeyers rechter Abschiedsgruß schei.. [+]
Humor & Fungalvanize |
Audio Technica ATH-M50X vs Beyerdynamic Custom One ProHallo! Es ist schon die höchste Zeit für neue Kopfhörer und ich muss mich jetzt zwischen den zwei Modellen entscheiden. Im Prinzip würde ich sofort die Audio Technica kaufen, aber meine derzeitigen AKG K450 muss ich tauschen, weil die Ohrpolster einfach weg sind. Und bei den Audio Technica kann man sie nicht tauschen. Im Vergleich dazu sind die Beyerdynamic ein bisschen basslästiger (auch auf der niedrigsten Stufe), aber man kann alles tauschen. So, meine Frage: halten die Audio Technica gut aus (auch im Sommer, unter der Sonne und beim Schwitzen) oder soll ich ein bisschen mehr für die Beyerdynamic ausgeben (die Kopfhörer selbst sind teurer und haben nur ein Kabel in der Verpackung) und danach noch mehr für die Ersatzteile ausgeben? [+]
Audio und VideoSuchergebnisse: Eagle Eye Cherry Basic O help
Visual Basic.php Dokument aufrufen
Hi,
ich nutze in VB folgenden Code: Private Sub Form1_KeyDown Handles Me.KeyDown Debug.WriteLine("KeyDown") If e.KeyCode = Windows.Forms.Keys.Up Then ElseIf e.KeyCode = Windows.Forms.Keys.Down Then picUnten.Visible = True ElseIf e.KeyCode = Windows.Forms.Keys.Left Then piclinks.Visible = True ElseIf e.KeyCode = Windows.Forms.Keys.Right Then picRechts.Visible = True End If End Sub Es funktioniert so wie ich es möchte. Ich möchte allerdings in der ersten If Bedingung ein.php Dokument von einem Webserver öffnen, welches sich im selben WLAN Netzwerk befindet, wie der Rechner, von dem das Programm gestartet wird.
Könnt ihr mir sagen, was ich dafür einfügen muss?
ich nutze in VB folgenden Code: Private Sub Form1_KeyDown Handles Me.KeyDown Debug.WriteLine("KeyDown") If e.KeyCode = Windows.Forms.Keys.Up Then ElseIf e.KeyCode = Windows.Forms.Keys.Down Then picUnten.Visible = True ElseIf e.KeyCode = Windows.Forms.Keys.Left Then piclinks.Visible = True ElseIf e.KeyCode = Windows.Forms.Keys.Right Then picRechts.Visible = True End If End Sub Es funktioniert so wie ich es möchte. Ich möchte allerdings in der ersten If Bedingung ein.php Dokument von einem Webserver öffnen, welches sich im selben WLAN Netzwerk befindet, wie der Rechner, von dem das Programm gestartet wird.
Könnt ihr mir sagen, was ich dafür einfügen muss?
kannst du damit was anfangen?:
Webbrowser Control Tip and Examples-VBForums
Webbrowser Control Tip and Examples-VBForums
Visual Basic Excel
Hallo ihr Lieben!
Ich bin heute mit meinen Visual Basic-Kenntnissen an meine Grenzen gestoßen, drum wende ich mich an euch.
Ich habe eine Exceldatei mit zwei Tabellenblättern. In Feld A1 der Tabelle1. steht eine Zahl, welche je nach Benutzer auch geändert wird. In Tabelle2. existiert eine Tabelle mit Namen, Anschrift und ähnlichen Daten.
Durch mein momentan Programmiertes Makro, wird diese Tabelle auf dem Tabellenblatt 2, markiert, kopiert und in Tabellenblatt 1 eingefügt in Abhängigkeit zu der Zahl der auf Tabelle.1 steht! Das heißt, steht auf Tabellenblatt.1 eine 10 , wird die Tabelle von Tabellenblatt.2 10x untereinander auf Tabellenblatt.1 eingefügt! Also Variabel, bei einer Zahl 4, wird die Tabelle 4x untereinander gefügt.
.So weit so gut, das funktioniert tadellos.
Ich will nun, dieses Makro erweitern aber schaff es nicht. Das Makro soll in Tabelle.1 in eine bestimmte Zelle quasi eine Gruppe schreiben. Es gibt die Gruppen 1 - 50.
Die ersten 10 Tabellen die durch mein bisheriges Makro eingefügt wurden, sollen die Gruppe 1 erhalten, ab der 11 eingefügten Tabelle bis zur 20 Tabelle Gruppe 2. usw.
Die Abhängigkeit zu meinem vorherigen Makro muss bleiben, also sobald ich die Zahl in Tabelle.1 z.B auf 20 setze und das Makro aktivere müssen dort 20 Tabellen eingefügt werden mit 10 x Gruppe 1 und 10 x Gruppe 2.
schon , entschuldigt dass, es ein wenig verwirrend geschrieben ist. Aber ist auch ein verwirrendes Thema, wenn man sich selbst im Internet darüber belesen will.
Ich bin heute mit meinen Visual Basic-Kenntnissen an meine Grenzen gestoßen, drum wende ich mich an euch.
Ich habe eine Exceldatei mit zwei Tabellenblättern. In Feld A1 der Tabelle1. steht eine Zahl, welche je nach Benutzer auch geändert wird. In Tabelle2. existiert eine Tabelle mit Namen, Anschrift und ähnlichen Daten.
Durch mein momentan Programmiertes Makro, wird diese Tabelle auf dem Tabellenblatt 2, markiert, kopiert und in Tabellenblatt 1 eingefügt in Abhängigkeit zu der Zahl der auf Tabelle.1 steht! Das heißt, steht auf Tabellenblatt.1 eine 10 , wird die Tabelle von Tabellenblatt.2 10x untereinander auf Tabellenblatt.1 eingefügt! Also Variabel, bei einer Zahl 4, wird die Tabelle 4x untereinander gefügt.
.So weit so gut, das funktioniert tadellos.
Ich will nun, dieses Makro erweitern aber schaff es nicht. Das Makro soll in Tabelle.1 in eine bestimmte Zelle quasi eine Gruppe schreiben. Es gibt die Gruppen 1 - 50.
Die ersten 10 Tabellen die durch mein bisheriges Makro eingefügt wurden, sollen die Gruppe 1 erhalten, ab der 11 eingefügten Tabelle bis zur 20 Tabelle Gruppe 2. usw.
Die Abhängigkeit zu meinem vorherigen Makro muss bleiben, also sobald ich die Zahl in Tabelle.1 z.B auf 20 setze und das Makro aktivere müssen dort 20 Tabellen eingefügt werden mit 10 x Gruppe 1 und 10 x Gruppe 2.
schon , entschuldigt dass, es ein wenig verwirrend geschrieben ist. Aber ist auch ein verwirrendes Thema, wenn man sich selbst im Internet darüber belesen will.
Dein Problem ist, wie strukturier ich meine Frage. Ein Vorschlag Überschrift, was ist gegeben und schon vorhanden
1a. Problem kurz skizzieren
1b. Was ist gegeben - Erstens Steuertabelle enthält ___, zweitens Ausgabetabelle soll xyz zeigen Strich drunter Was soll noch erreicht werden
3a. Makro soll Daten in Zellen schreiben - was ist der besondere/schwierige Teil davon?
3b. Es sollen Gruppen angelegt werden - wie, wo, was. Die sollten wohl im Teil 1 erklärt sein, sind es aber nicht
3c. Was hast du im Griff und wo genau hast du eine Frage Hilfreich wäre auch den ganzen Ballast weg zu lassen - ala "entschuldigt dass ich auf der Welt bin". Oder Erkenntnisse wie "ich habe eine Frage".
Ach ja zuletzt: am besten dann nochmal neu posten, es schaut hier keiner mehr rein.
1a. Problem kurz skizzieren
1b. Was ist gegeben - Erstens Steuertabelle enthält ___, zweitens Ausgabetabelle soll xyz zeigen
3a. Makro soll Daten in Zellen schreiben - was ist der besondere/schwierige Teil davon?
3b. Es sollen Gruppen angelegt werden - wie, wo, was. Die sollten wohl im Teil 1 erklärt sein, sind es aber nicht
3c. Was hast du im Griff und wo genau hast du eine Frage
Ach ja zuletzt: am besten dann nochmal neu posten, es schaut hier keiner mehr rein.
Wer es versteht, soll es besntworten, ich verstehe nur Bahnhof
Visual Basic: Für jedes Auftreten eines Events.Visible Eigenschaft eines neuen Buttons ändern
Folgendes Problem bei Visual Basic: Ich möchte bei jedem Auftreten eines Ereignisses die.Visible Eigenschaft eines anderen Buttons auf "true" setzen. z.B.
Event->Button.Visible=True Beim 1. Auftreten des Events Button1.Visible auf true stellen Beim 2. Auftreten des Events Button2.Visible auf true stellen Beim 3. Auftreten des Events Button3.Visible auf true stellen.
Den Namen eines Buttons kann man ja leider nicht in einer Variable oder einem Array speichern. Sonst könnte man ja jedes Mal einfach den Namen des Buttons aus einem Array abrufen und danach die Variable in der die Position des Namens gespeichert ist um 1 erhöhen.
Event->Button.Visible=True Beim 1. Auftreten des Events Button1.Visible auf true stellen Beim 2. Auftreten des Events Button2.Visible auf true stellen Beim 3. Auftreten des Events Button3.Visible auf true stellen.
Den Namen eines Buttons kann man ja leider nicht in einer Variable oder einem Array speichern. Sonst könnte man ja jedes Mal einfach den Namen des Buttons aus einem Array abrufen und danach die Variable in der die Position des Namens gespeichert ist um 1 erhöhen.
Ich habe leider nur VBA zur Verfügung. Bei mir funktioniert folgendes:Option Explicit
Dim i
Private Sub btnMain_Click()
Dim oControl
i = i + 1
For Each oControl In Me.Controls
If oControl.Name = "Button" & i Then _
oControl.Visible = True
'Debug.Print oControl.Name
Next
End Sub
Antwort von , 11.05.2015 1 Mitglied fand diese Antwort hilfreich Wie meinst du das, man kann den Namen eines Buttons nicht in einem Array speichern? Sicher geht das. Du kannst neu erzeugten Buttons auch einen Namen zuweisen.
Du kannst auch die Buttons selbst in einem Array speichern. Falls du sie dynamisch erzeugst, würde sich eher eine List anbieten.
Dim i
Private Sub btnMain_Click()
Dim oControl
i = i + 1
For Each oControl In Me.Controls
If oControl.Name = "Button" & i Then _
oControl.Visible = True
'Debug.Print oControl.Name
Next
End Sub
Antwort von , 11.05.2015 1 Mitglied fand diese Antwort hilfreich Wie meinst du das, man kann den Namen eines Buttons nicht in einem Array speichern? Sicher geht das. Du kannst neu erzeugten Buttons auch einen Namen zuweisen.
Du kannst auch die Buttons selbst in einem Array speichern. Falls du sie dynamisch erzeugst, würde sich eher eine List anbieten.
Beule am Kopf? o.o
Undzwar, hab ich sone Komische beule, bisschen hinterm Ohr, naja. Ist Hart, eher so wie nen Knochen. Könnte eine Schädel-Asymetrie sein, aber ich hab keine anzeichen die irgendwas anderes denken lassen. Ist sowas normal, das manche da sowas haben siehe Bild.
Lass dich von einem Arzt durchchecken, dann hast du Gewissheit.
.
.
Ich hab dort auch so eine kleine Beule, eher ein Knubbel. Ich denke schlimm ist es nicht, falls du dich sorgst, kannst du das mal einem Arzt zeigen.
Mhm, ist ja logisch. Das es auch in der Nähe des Ohr's ist. Ist aber wie ein Knochen oder? Bei mir tut das nen bisschen weh, wie ne Beule oder blauen fleck wenn man draufdrückt.
Please Help me modify my Macro
What the macro doas: It lists all files in the chosen filesystem. in range A it writes the addres, in range B it writes the filename What i need to be added: in range C it writes the last changedate the matching command must be: ".DateLastModified " i have tried again and again but keep getting error messages-.-
I have the following macro :Option Explicit Private strList() If strTMP = "" Or Left = ":" Then Exit Sub SearchFiles strTMP, "*.*" 'adapt If lngCount = 0 Then MsgBox "No file found" Exit Sub End If With ThisWorkbook.Worksheets.Cells.Clear.Range1, 2lngCount, 2)strList.Cells, CellsstrDir"A:B""Shell.Application"0, "Folder", &H10, 17strFolder As String, strFileName As String"Scripting.FileSystemObject"strFolderlngCountlngCountlngCountlngCount) = strFolder & "\" lngCount = lngCount + 1 End If Next For Each objFolder In objFSO.GetFolder.Subfolders SearchFiles strFolder & "\" & objFolder.Name, strFileName Next End Sub Public Sub Make_Link(1"B" &.Rows.CountxlUplngRow, 2lngRow, 1lngRow, 2) If strTMP = "" Or Left = ":" Then Exit Sub SearchFiles strTMP, "*.*" 'adapt If lngCount = 0 Then MsgBox "No file found" Exit Sub End If With ThisWorkbook.Worksheets.Cells.Clear.Range1, 2lngCount, 2)strList.Cells, CellsstrDir.Cells, CellsstrDat"A:B""Shell.Application"0, "Folder", &H10, 17strFolder As String, strFileName As String"Scripting.FileSystemObject"strFolderlngCountlngCountlngCountlngCountlngCount) = strFolder & "\" strDat = objFile.Datelastmodified lngCount = lngCount + 1 End If Next For Each objFolder In objFSO.GetFolder.Subfolders SearchFiles strFolder & "\" & objFolder.Name, strFileName Next End Sub Public Sub Make_Link(1"B" &.Rows.CountxlUplngRow, 2lngRow, 1lngRow, 2*3 ist leider nicht möglich
I have the following macro :Option Explicit Private strList() If strTMP = "" Or Left = ":" Then Exit Sub SearchFiles strTMP, "*.*" 'adapt If lngCount = 0 Then MsgBox "No file found" Exit Sub End If With ThisWorkbook.Worksheets.Cells.Clear.Range1, 2lngCount, 2)strList.Cells, CellsstrDir"A:B""Shell.Application"0, "Folder", &H10, 17strFolder As String, strFileName As String"Scripting.FileSystemObject"strFolderlngCountlngCountlngCountlngCount) = strFolder & "\" lngCount = lngCount + 1 End If Next For Each objFolder In objFSO.GetFolder.Subfolders SearchFiles strFolder & "\" & objFolder.Name, strFileName Next End Sub Public Sub Make_Link(1"B" &.Rows.CountxlUplngRow, 2lngRow, 1lngRow, 2) If strTMP = "" Or Left = ":" Then Exit Sub SearchFiles strTMP, "*.*" 'adapt If lngCount = 0 Then MsgBox "No file found" Exit Sub End If With ThisWorkbook.Worksheets.Cells.Clear.Range1, 2lngCount, 2)strList.Cells, CellsstrDir.Cells, CellsstrDat"A:B""Shell.Application"0, "Folder", &H10, 17strFolder As String, strFileName As String"Scripting.FileSystemObject"strFolderlngCountlngCountlngCountlngCountlngCount) = strFolder & "\" strDat = objFile.Datelastmodified lngCount = lngCount + 1 End If Next For Each objFolder In objFSO.GetFolder.Subfolders SearchFiles strFolder & "\" & objFolder.Name, strFileName Next End Sub Public Sub Make_Link(1"B" &.Rows.CountxlUplngRow, 2lngRow, 1lngRow, 2*3 ist leider nicht möglich
Ja aber das modifizieren war nicht so tragisch. Hab ja nur 2 Zeilen eingefügt bzw 2 mal kopiert und 3 Worte und 2 Zahlen geändert.
WOW, du hast sogar die gleiche variable wie ich benutzt . Im Grunde ist es einläuchtend, was du gemacht hast und ich habe genau das gleich versucht und zwar ca. 1,5 Stunden am Stück, warum das jetzt auf einmal läuft und vorher nicht ist mir ein Rätsel, den Goldenen Stern hast du dir verdient
ich hätte das DH mehrfach vergeben. aber schau Dir trotzdem die beiden Links an, probiere die integrierte Eigenschaft mit Nummer auch mit anderen Nummern aus oder such sonst im Netz was dazu.
Ich weiß nicht wie ich dazu gekommen bin das jetzt auf englisch zu schreiben, also hier nochmal in deutsch:
Das makro gibt quelle und dateiname eines ausgewählten ordners und seiner unterordner aus. ich brauch in zeile C noch das passende Änderungsdatum. Der Befehl dürfte lauten: DateLastModified
Das makro gibt quelle und dateiname eines ausgewählten ordners und seiner unterordner aus. ich brauch in zeile C noch das passende Änderungsdatum. Der Befehl dürfte lauten: DateLastModified
Da ich lange nichts mehr mit VBA gemacht habe und da nur in Word, kann ich dir da leider nicht weiterhelfen, aber ich verweise dich da gerne auf das Forum von Microsoft.
Die Newsgroups wurden wie es ausschaut leider geschlossen.
Als ich Probleme hatte wurde mir in den Newsgroups schnell und kompetent weitergeholfen.
Ein Link zum Einstieg ins Forum: Microsoft Community
Die Newsgroups wurden wie es ausschaut leider geschlossen.
Als ich Probleme hatte wurde mir in den Newsgroups schnell und kompetent weitergeholfen.
Ein Link zum Einstieg ins Forum: Microsoft Community
i've found sth similar in :
Re: Wie kann ich das Speicherdatum in eine Tabellenzeile einfügen?
unexpectedly this µ has worked once but I couldn't reproduce. Even copying and saving in a general module under another name didn't work: The altered title of the µ didn't shine up in the list and starting it via the green triangel didn't work. .
But perhapps you will find qualified help there
Re: Wie kann ich das Speicherdatum in eine Tabellenzeile einfügen?
unexpectedly this µ has worked once but I couldn't reproduce. Even copying and saving in a general module under another name didn't work: The altered title of the µ didn't shine up in the list and starting it via the green triangel didn't work. .
But perhapps you will find qualified help there
machst du dich über mein Englisch lustig? o.o
lustig macht er sich nicht, aber perfekt ist es auch nicht.