Suche auf lima-city
-
in: Menü nach unten setzen?!
geschrieben von massage
Meinst du Programme - also externe eigenst?ndige Programme - oder Teile deines Programmes?
Ich hoff, ich versteh dich jetzt richtig...
Verwende mal das MDI-Formular...
Dann kannst du jedem neuen Formular die Eigenschaft MDI-Child = true geben.
Dann sind all diese Fenster einem -
in: RTF Box
geschrieben von massage
Die RTF-Box ist eigentlich ein optimales Tool, mit dem man so gut wie alles machen kann was Texte betrifft.
R?ckw?rtssuche funktioniert, in dem du das ?ber den Befehl
instrrev machst.
Beispiel
Dim iPos as integer
iPos=instrrev(richtextbox1.text,"Hallo")
richtextbox1.selstart=iPos
richtextbox1.sellength=len("Hallo")
Wenn du per Script Text einf?gen willst, dann musst du das, wenn es sich um Richtext handelt, ?ber Sendmessage machen.
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_PASTE = &H302
Clipboard.Clear
Clipboard.SetText sRichtext, vbcfrtf
DoEvents
SendMessage RichTextBox1.hwnd, WM_PASTE, 0, 0
DoEvents
Clipboard.Clear
Ich hoffe, dass dir das schon mal weiterhilft.
greetz
Mario
-
in: Dateien umbenennen
geschrieben von massage
Oder du machst es ?ber die API MoveFile
Private Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long
und dann
MoveFile "C:\bla.txt", "C:\blubb.txt"
greetz
Mario -
in: Menü nach unten setzen?!
geschrieben von massage
Hi,
also zu 1)
du kannst ?ber den Befehl Popupmenu ein Men? von deinem Prog ?berall aufklappen lassen (innerhalb deines Progs)
Bzgl. individuelles Men? - entweder per API oder du erstellst einen mit 0 indizierten Dummy-Men?punkt und machst ?ber Load die zus?tzlichen Unterpunkte
z.B. Load mnuExtra(mnuExtra.ubound +1)
zu 2)
Generell geht das - ist ein wenig komplexer - du ben?tigst dazu das Handle und kannst es ?ber SetParent in dein Programm integrieren.
Bei einigen Programmen gibt?s da Probleme - z.B. bei Excel.
Zieh dir mal von Allapi.net den ApiViewer runter und schau dir das Sample bei SetParent an.
greetz
Mario -
in: Problem mit der combox
geschrieben von massage
Hier noch ein universelles Beispiel - da brauchst du im Code nix zu ?ndern und kannst noch zig Frames hinzuf?gen
Private Sub Combo1_Click()
Dim Fr As Control
For Each Fr In Me
If TypeOf Fr Is Frame Then
If Fr.Caption = Combo1.Text Then
Fr.Visible = True
Else
Fr.Visible = False
End If
End If
Next
End Sub
Private Sub Form_Load()
Dim Fr As Control
For Each Fr In Me
If TypeOf Fr Is Frame Then
Combo1.AddItem Fr.Caption
Fr.Visible = False
End If
Next
End Sub
greetz
Mario -
in: Scrollbar
geschrieben von massage
Ich gebe dir ein Beispiel anhand eines Scrollbars f?rs Fenster, wenn ein Frame, das gr??er als die Form ist, gescrollt werden soll - in diesem Beispiel rein vertikal. Musst halt erg?nzen, wenn horizontal auch dabei sein soll - ist aber selbes Prinzip
Private Sub Form_Resize()
If Frame1.Height < Me.ScaleHeight Then
VScroll1.Visible = False
Else
With VScroll1
.Visible = True
.Min = 0
.Max = Frame1.Height - Me.ScaleHeight
.Top = 0
.Left = Me.ScaleWidth - .Width
.Height = Me.ScaleHeight
.Refresh
End With
End If
End Sub
Private Sub VScroll1_Change()
Frame1.Top = -VScroll1.Value
End Sub
Private Sub VScroll1_Scroll()
VScroll1_Change
End Sub
greetz
Mario -
in: Outkast die einzig guten Hip Hoper
geschrieben von massage
Outkast ist zwar im kommerziellen Bereich anzusiedeln, aber ich muss sagen, da steckt noch Arbeit, Abwechslung und Kreativit?t dahinter.
Jeder Track hat seinen eigenen Style.
Vergleich zum Beispiel mit Groove Coverage: Eins wie?s andere.