[Vb] Programma controle overnemen

Pagina: 1
Acties:

  • ddkiller0900
  • Registratie: Juli 2001
  • Laatst online: 22-08 19:34
Ik vroeg me af hoe je de controle kunt overpakken van een programma. Ik ga een soort "automatiseringsprogrammaatje" maken omdat ik me wat verveel. Nu had ik al in een voorbeeld gezien hoe je word kon besturen, maar kan je dit voor ieder programma doen?? ZO ja hoe??
van word heb ik tot nu toe volgende gezien:
Option Explicit

'Create an empty class to reference the Word Object
Dim w1 As Word.Application

Private Sub cmdAddDocument_Click()

'Create a new document
w1.Documents.Add

End Sub

Private Sub cmdAddText_Click()

'Test to see if there is a document open
If w1.Documents.Count < 1 Then
MsgBox "No documents open"
Exit Sub
End If

'Set the font size
w1.Selection.Font.Size = txtSize.Text

'Set the font weight etc.
w1.Selection.Font.Bold = IIf(chkBold.Value = 1, True, False)
w1.Selection.Font.Italic = IIf(chkItalic.Value = 1, True, False)
w1.Selection.Font.Underline = IIf(chkUnderline.Value = 1, True, False)

'Set the alignment
w1.Selection.ParagraphFormat.Alignment = drpJustification.ListIndex

'Type the text
w1.Selection.TypeText txtTypeText.Text

End Sub

Private Sub cmdPrint_Click()

'Print out
w1.ActiveDocument.PrintOut

End Sub

Private Sub Form_Load()

'Create a new instance of word
Set w1 = New Word.Application

'Initialize Word as visible
Option1_Click 0

'Make the default value the first in the list
drpJustification.Text = drpJustification.List(0)

End Sub

Private Sub Form_Terminate()

'Close the Word application (not saving changes)
w1.Quit False
Set w1 = Nothing

End Sub

Private Sub Option1_Click(Index As Integer)

'Make word invisible / visible
w1.Visible = IIf(Index = 0, True, False)

End Sub

Verwijderd

Dat werkt natuurlijk alleen als t programma daar ondersteuning voor heeft.

  • ddkiller0900
  • Registratie: Juli 2001
  • Laatst online: 22-08 19:34
damn, zou handig zijn als je zo taken kon aanmake in programma en dat het op een bepaald tijdstip werd uitgevoerd. Noem nu een voorbeeld:

Om 17.00 moet outlook express opstarten en moet email worden binnengehaald en daarna een mail verstuurd worden.

Verwijderd

Voor welk programma wil je zoiets gaan maken?

  • ddkiller0900
  • Registratie: Juli 2001
  • Laatst online: 22-08 19:34
voor verschillende, alle programma's die op een computer zijn geinstalleerd moeten eigenlijk bestuurd kunnen worden.

  • mulder
  • Registratie: Augustus 2001
  • Laatst online: 09:50

mulder

ik spuug op het trottoir

Dat kan in principe wel, maar zal voor het ene programma een grotere klus zijn dan voor de andere. Programma's zoals die van Office, hebben een type library, waardoor ze aan te sturen zijn. Bij andere programma's moet je messages gaan afvangen, en die later naar het proggie sturen,

oogjes open, snaveltjes dicht


  • ddkiller0900
  • Registratie: Juli 2001
  • Laatst online: 22-08 19:34
hmz bedankt voor de informatie :)
weet iemand wat links waar zo'n klein voorbeeldje is of zo??

Verwijderd

msdn.microsoft.com >:)

kijk is bij project->references of je bekende namen ziet als office

als je de betreffende api/library dan hep aangevinkt,
kun je met het venstertje dat je krijgt als je op F2 drukt door die library's heen scrollen.
Pagina: 1