|
Registrieren
Login
Right DVD Treatment And Storage
Verfasst am: 09.09.2011, 07:54 Aufrufe: 370
In inclusion to very carefully buy DVD to consist of to some collection, anime collectors are to familiarize by themselves with right DVD treatment and storage. this really is especially important for all those curious about developing some money. Perhaps, the to improve or on the really lowest preserve the worth of an anime collectable digital video disc is by leaving the disc in its genuine package. As shortly ge ...
Objekt mit Pfeilen bewegen + Start-Button
Verfasst am: 21.07.2011, 18:29 Aufrufe: 587
Steuern über Pfeile:
Schritt 1
Protected Overrides Function isinputkey(ByVal keyData As System.Windows.Forms.Keys) As Boolean
Select keyData
Case Keys.Up, Keys.Down, Keys.Left, Keys.Right
Return True
End Select
End Function
Schritt 2
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me. ...
Control-Array zu Laufzeit mit MausDown-Auswertung
Verfasst am: 01.02.2011, 23:18 Aufrufe: 543
Refresh
End With
End Sub
'
' BuildButton
'
Private Sub buildButton(Index As Integer)
If buttonCounter > 0 Then
Load nButton(buttonCounter)
End If
nButton(buttonCounter).Left = bNr.Left
nButton(buttonCounter).Top = bNr.Top
nButton(buttonCounter).Width = Abs(bNr.Right - bNr.Left)
nButton(buttonCounter).Heig ...
VBA Aufgabe
Verfasst am: 25.01.2011, 10:15 Aufrufe: 626
Ruckeln bei DrawReversibleFrame oder DrawFocusRect
Verfasst am: 16.12.2010, 19:36 Aufrufe: 474
... As Integer, ByRef lpRect As RECT) As Integer
Private Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hWnd As Integer) As Integer
Private Declare Function ReleaseDC Lib "user32" Alias "ReleaseDC" (ByVal hWnd As Integer, ByVal DC As Integer) As Integer
Private Structure RECT
Dim Left As Integer
Dim Top As Integer
Dim Right ...
Einsteiger braucht Hilfe bei Application.OnTime
Verfasst am: 10.12.2010, 08:50 Aufrufe: 396
Clear
Set Groups = GetObject("LDAP://OU=Sicherheitsgruppen,OU=firma,DC=domäne,DC=local")
Groups.Group = Array("group")
Set r = Range("a2")
For Each objGroup In Groups
r = objGroup.Name
r = " " & Right(r, Len(r) - 3)
Set r = r.Offset(1)
Next
Sheets(2).Activate
End
End Sub ...
Text aus Textdokument in Textbox einfügen
Verfasst am: 02.12.2010, 11:06 Aufrufe: 509
String wird nicht richtig abgetrennt
Verfasst am: 13.11.2010, 11:47 Aufrufe: 418
webbrowser Quellcode
Verfasst am: 07.11.2010, 12:42 Aufrufe: 542
[VB 2010] Mehrkreistemperaturregler Feller Engineering MCS
Verfasst am: 02.07.2010, 12:29 Aufrufe: 878
... ng
Dim chr As Char
Dim intSum As Integer
'String in CharArray Umwandeln
Dim chrArray As Char() = str.ToCharArray()
'Jedes Zeichen in ASCII-Wert umwandeln und zu Summe addieren
For Each chr In chrArray
intSum = intSum + Strings.Asc(chr)
Next chr
'Summe in Hex-String Wandeln und letzten 2 Stellen zurückgeben
Return Strings.Right ...
Verzeichnis umbenennen. VB6
Verfasst am: 23.12.2009, 09:12 Aufrufe: 541
Verzeichnis umbenennen. VB6
Verfasst am: 22.12.2009, 13:00 Aufrufe: 541
Popups(Layer)wegklicken
Verfasst am: 18.07.2009, 15:35 Aufrufe: 1298
Über ein Webbrowser element rufe ich die Seite auf vorher lösche ich immer die cockies und den cache und sezte einen neuen Proxy.
Nun über den Proxy lädt das Programm halt meine Seite und nach 3,5 sek kommt der Layer reingefolgen z.b von Layer ADS .de
Der Code des Buttons die man klicken kann sieht wiefolgt aus:
<div style="float: right;">
<a href="#" onclick="bookm ...
Datei mittels Windows Dialog verschieben
Verfasst am: 29.06.2009, 14:05 Aufrufe: 569
Beschreibung: Datei mittels Windows Dialog verschiebenFunktion:Visual Basic: Quelle: dotnet-snippets.de
Datei mittels Windows Dialog kopieren
Verfasst am: 29.06.2009, 14:04 Aufrufe: 744
Beschreibung:Datei mittels Windows Dialog kopierenFunktion:Visual Basic: Quelle: dotnet-snippets.de
Zeichen im String verschieben
Verfasst am: 25.06.2009, 07:18 Aufrufe: 405
Was%& Geh%§t!
3. Was G%&eht%§!
4. Was Ge%&ht!%§
5. %§Was Geh%&t!
6. W%§as Geht%&!
7. Wa%§s Geht!%&
8. %&Was%§ Geht!
9. W%&as G%§eht!
10. Wa%&s Ge%§ht!
Das Wort ist immer anders aber die Zeichen ändern sich nicht.
habs mit Instr(),mid(),left(),right() versucht ich krieg nur die Position des Zeichens im Text raus aber wie ich es verschieben kann weis ich nicht hoffe auf ...
ShortCuts auf Desktop anzeigen
Verfasst am: 15.06.2009, 15:51 Aufrufe: 627
... Private Const VK_SPACE = &H20 ' Space/Leertaste
Private Const VK_PRIOR = &H21 ' PageUp/Bild hoch
Private Const VK_NEXT = &H22 ' PageDown/Bild runter
Private Const VK_END = &H23 ' Ende
Private Const VK_HOME = &H24 ' Home/Pos1
Private Const VK_LEFT = &H25 ' Linke Pfeiltaste
Private Const VK_UP = &H26 ' Obere Pfeiltaste
Private Const VK_RIGHT ...
Primzahlen
Verfasst am: 12.06.2009, 16:33 Aufrufe: 492
ColorIndex Like "[1,colorf]" Then
Call Markieren(Value, colorf, l)
colorf = colorf + 1
End If
spalte = spalte + 1
If spalte = 11 Then
spalte = 1
zeile = zeile + 1
End If
Value = Worksheets(1).Cells(zeile, spalte).Value
Next
End Sub
Sub Markieren(Value, colorf, l)
spalte = CInt(Right(Value, 1))
If spalte = 0 Then spalte = 1
zeile = 1
...
GetAsyncKeyState Problem!!!!
Verfasst am: 22.05.2009, 07:17 Aufrufe: 576
vbKeyLeft) Then
Select Case Pfeil.Top
Case "480"
If Value.Caption = "1" Then
Value.Caption = "0"
Else
Value.Caption = "1"
End If
End Select
End If
Right:
If GetAsyncKeyState(KeyCodeConstants.vbKeyRight) Then
Select Case Pfeil.Top
Case "480"
If Value.Caption = "1" Then
Value.Caption = "0" ...
Mid,instr len frage :) Einfach gesagt weg schneiden
Verfasst am: 15.05.2009, 10:58 Aufrufe: 1083
... 0;i), "(") + 2)
urls = Split(sbuffer, "&")
For x = 0 To UBound(urls)
If Len(urls(x)) > 0 Then _
urls(x) = Left(urls(x), Len(urls(x)) - 2)
If InStr(1, urls(x), " ") > 0 Then _
urls(x) = Right ...
[VBS]Syntax Fehler
Verfasst am: 30.03.2009, 17:33 Aufrufe: 833
If ((DateDiff("d", Datei.DateCreated, Now)) > 14) and right(Datei.Name, 4) = ".PDF" Then
[VB Script] PDF nach 14 Tagen löschen
Verfasst am: 30.03.2009, 09:55 Aufrufe: 1912
mit right()
if right(dateiname,3) = "pdf" then ...
[Winsock] Transfer-System
Verfasst am: 09.09.2008, 12:24 Aufrufe: 1038
String im Quelltext suchen
Verfasst am: 19.08.2008, 09:20 Aufrufe: 1545
serviceContentText{color:#53534b;font-family: arial;font-size:12px;font-weight:normal;}a{color:#005fd0;font-weight:bold;font-family: arial;font-size:11px;}a:hover{color:#2cd000;font-weight:bold;font-family: arial;font-size:11px;}a#logout{font-family: verdana; color:#fffb8f; font-size: 11px; font-weight: bold; text-decoration: underline;padding-right:25px; display: block; height:18px;background: url('images/revamp2008 ...
Winsock größere Packete übertragen
Verfasst am: 20.07.2008, 20:34 Aufrufe: 573
SendData "Packet1" & Mid(deinString, zahl, 1000) zahl = zahl + 1000 ' Position ändernLoop until zahl + 1000 >= Len(deinString)Server.SendData "Packet2" & Right(DeinString, Länge - zahl + 1)Jetzt muss dein Server das machen bei dataarrvial:winsck.getdata dataRest = Right(data, Len(data) - 7)select case Left(data,7)case "Packet1"Variable = Variable & RestCase "PacketVariable = Variable & Rest'Jetzt kannst du deinen Str ...
Kurze Datipfade -> Lange Dateipfade
Verfasst am: 18.07.2008, 19:36 Aufrufe: 792
Standartbrowser auslesen?
Verfasst am: 18.07.2008, 17:33 Aufrufe: 451
Hi, das geht so:Visual Basic: Verwendung:MsgBox DefaultBrowserBeispielprojekt ist im Anhang!
Alle *.exe Files im Ordner suchen
Verfasst am: 18.07.2008, 17:19 Aufrufe: 474
Hi, das geht so: (allerdings ohne unterordner!)Vorbereitung:lstFiles - ListBox auf das FormularCode:Visual Basic: Verwendung:SearchFiles Beispiel:SearchFiles "C:"
Website Quelltext auslesen und nach String suchen
Verfasst am: 14.07.2008, 08:06 Aufrufe: 992
string mit unterordnern und dateien eines ordners
Verfasst am: 05.07.2008, 17:58 Aufrufe: 417
string mit unterordnern und dateien eines ordners
Verfasst am: 05.07.2008, 15:47 Aufrufe: 417
Path Dim i As Integer Dim tempStr As String For i% = 1 To Len(sDicName$) ' look for the "" If Right(sDicName$, 1) = "" Then sDicName$ = Left(sDicName$, Len(sDicName$) - 1) End If tempStr$ = Right$(sDicName$, i%) If Left$(tempStr$, 1) = "" Then sDicName$ = Right$(sDicName$, Len(sDicName$) - i%) sDirs = s ...
Probleme mit DIVs
Verfasst am: 14.06.2008, 12:31 Aufrufe: 989
left {background-image: url(pictures/left.jpg);background-color:white;width:142px;height:100%;border:0px solid red;padding:0px;margin: 0 auto;margin-left: 223px;}div.right {background-image: url(pictures/right.jpg);background-color:white;width:661px;height:100%;border:0px solid red;padding:0px;margin: 0 auto;margin-left: 365px;}__________________________________________________________________________________Edit:HAT ...
Probleme mit DIVs
Verfasst am: 14.06.2008, 12:04 Aufrufe: 989
Oder du machst noch um das ganze umschliessende Div-Container drum. Dann brauchst du nur den "äußersten" in der Mitte anpassen, und die inneren Div´s sind dann in ihrere Position und Breite begrenzt. Also um die Div´s up, left, right, down einen umschließenden Container drum.
Probleme mit DIVs
Verfasst am: 14.06.2008, 11:48 Aufrufe: 989
Moin,ich habe ein Problem mit meinen DIV Containern^^. Vielleicht mache ich auch nur ein Anfängerfehler, denn ich fange gerade erst damit an. Also hier erstmal ein Bild: So wie ihr vielleicht auf dem Bild sehen könnt, sind die beiden Container "left" und "right" nach links verrückt. Ich will dass jetzt aber so haben, dass diese unter dem Header sind. Ich habs in dem Bild auch schon mit floaten geklappt, da sind die b ...
GetPixel API
Verfasst am: 16.05.2008, 12:19 Aufrufe: 1529
Funktionsweise einer Sin Console
Verfasst am: 06.05.2008, 16:18 Aufrufe: 1067
Liste aller Prozesse ermitteln
Verfasst am: 01.05.2008, 14:08 Aufrufe: 3001
Beschreibung:Eine Liste aller laufender Prozesse lässt sich wie folgt ermitteln und bspw. in einem ListView anzeigen.Platzieren Sie auf die Form ein ListView-Control und einen CommandButton (Button1) und fügen folgenden Code in den Codeteil der Form ein:Funktion:Visual Basic: Erweiterung:Visual Basic: Quelle: vbarchiv.net
Anderer Befehl?
Verfasst am: 19.04.2008, 16:39 Aufrufe: 700
Den Inhalt in eine Variable laden und per Left, Right oder Mid das letzte Zeichen, in dem Fall vbnewline, löschen
Antileak mit CRC32
Verfasst am: 17.04.2008, 11:53 Aufrufe: 1839
... ; volume_name = Space(256)<br /> file_system_name = Space(256)<br /><br /> drive_name = "c:"<br /> pos = InStr(drive_name, ":")<br /> If pos > 0 Then drive_name = Left$(drive_name, pos)<br /> If Right ...
Wie kann ich die ersten 4-5 Buchstaben auslesen
Verfasst am: 04.04.2008, 12:02 Aufrufe: 424
Wie kann ich die ersten 4-5 Buchstaben auslesen
Verfasst am: 04.04.2008, 10:07 Aufrufe: 424
N00b braucht n bissl Hilfe! :)
Verfasst am: 14.03.2008, 10:58 Aufrufe: 689
ComboBox
Verfasst am: 27.02.2008, 19:28 Aufrufe: 577
Hilfe bei RAT (Winsock)
Verfasst am: 27.02.2008, 08:48 Aufrufe: 589
[S] Übersetzung einer Delphi Funktion
Verfasst am: 17.02.2008, 12:08 Aufrufe: 514
... ion
Private Function shl(ByVal Old As Long, ByVal shift As Long) As Long
' SHL = SHift Left
' Verschiebt die einzelnen bits *shift* nach links
' 00110011 -->
' 01100110
If shift = 0 Then shl = Old: Exit Function
shl = Old * (2 ^ shift)
End Function
Private Function shr(ByVal Old As Long, ByVal shift As Long) As Long
' SHR = SHift Right ...
[Text] Antileak mit CRC32
Verfasst am: 17.02.2008, 10:18 Aufrufe: 1322
... Then txt = Left$(txt, pos - 1)
CleanString = Trim$(txt)
End Function
'und der aufruf
Dim serial_number As Long
DoEvents
volume_name = Space(256)
file_system_name = Space(256)
drive_name = "c:\"
pos = InStr(drive_name, ":")
If pos > 0 Then drive_name = Left$(drive_name, pos)
If Right ...
Alle Dateien mit GLEICHER Dateiendung löschen
Verfasst am: 16.02.2008, 14:45 Aufrufe: 317
Text zwischen den Markern herausschneiden
Verfasst am: 06.02.2008, 13:55 Aufrufe: 307
ordnerinhalt ermitteln & löschen
Verfasst am: 18.12.2007, 18:15 Aufrufe: 405
Snippets Sammlung
Verfasst am: 08.12.2007, 20:18 Aufrufe: 1861
dll" () As Long
Private Function AppPath(ByVal zPath As String) As String
If Right$(zPath, 1) = "\" Then AppPath = zPath Else AppPath = zPath & "\"
End Function
Private Function FileExist(ByVal strPath As String) As Boolean
On Local Error GoTo ErrFile
Open strPath For Input Access Read As #1
Close #1
FileExist = True
Exit Function
...