[VB6] Richiamare la Calcolatrice di Windows

[max1850]

Salve! Uso Visual Basic 6.
Vorrei inserire una calcolatrice in una mia form.
Esiste un componente da poter aggiungere, come per il calendario? Ho cercato ma non l'ho trovato... :rollo:
Se non esiste, posso aggiungere la calcolatrice del Windows (calc.exe) in una mia form? Come la inserisco dentro la form?

Grazie
Max!

[LMondi]

Non esistono controlli del genere in VB6 , in alternativa: o la costruisci ex novo o ti accontenti di quella di Win (che poi è valida). Se scegli quest'ultima strada usa il seguente codice:

' Inserire il riferimento a Microsoft Scripting Runtime
Private Sub Command1_Click()

'Controlla che la calcolatrice sia installata sul computer:
    Dim FSO As FileSystemObject
    Dim fn As String
    Dim RetVal
    Dim strCheck2 As String
    
    Set FSO = New FileSystemObject
    fn = "C:\Windows\system32\CALC.EXE"
    With FSO
        If .FileExists(fn) Then
            strCheck2 = True
            Else
            strCheck2 = False
        End If
    End With
    Set FSO = Nothing
        
    If strCheck2 = True Then
        RetVal = Shell("C:\WINDOWS\System32\CALC.EXE", 1)
        ElseIf strCheck2 = False Then
        MsgBox "Il programma Calc.exe non é installato sul computer." & Chr(13) _
            & "Impossibile continuare!", vbExclamation, "Mia Applicazione"
    End If
End Sub

[max1850]

Ciao!
Si, preferisco usare quella del Windows visto che è già fatta!
Allora...il comando "Shell" apre la calcolatrice del Windows in una finestra tutta sua, invece a me serve un comando che la apra in una mia form vuota, come se facesse parte della stessa form.

Quale comando devo usare?

Grazie
Max!

[oregon]

Si puo' fare con la API SetParent ...

[max1850]

Sto cercando qualcosa su SetParent ma non trovo niente, neanche in google. Puoi buttarmi giù due riche di codice per vedere come si usa?
Oppure sai qualche sito che lo spiega possiblimente in italiano?

Ciao
Max!

[oregon]

E' impossibile non trovare niente su google per la SetParent ... a me sono arrivati 320.000 risultati per setparent ... !

A meno di non cercare ...

Private Const GW_HWNDNEXT = 2

Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Long, ByVal lpWindowName As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Function PidTohWnd(ByVal pid As Long) As Long
    Dim ckH As Long
    Dim ckThr As Long
    Dim ckPid As Long

    ckH = FindWindow(ByVal 0&, ByVal 0&)

    Do While ckH
        If GetParent(ckH) = 0 Then
            ckThr = GetWindowThreadProcessId(ckH, ckPid)
            If ckPid = pid Then
                PidTohWnd = ckH
                Exit Do
            End If
        End If

        ckH = GetWindow(ckH, GW_HWNDNEXT)
    Loop
End Function

Private Sub Form_Load()
    Call SetParent(PidTohWnd(Shell("calc.exe", vbNormalFocus)), Me.hwnd)
End Sub

[max1850]

Non sono molto esperto in VB e la ricerca l'ho fatta "in italiano". Prova a fare una ricerca "in italiano" e poi dimmi.

Cmq devo copiare tutte queste righe ?
Basta il sostituire solo "calc.exe" con la directory di dove si trova la mia calc.exe ?

Max!

[oregon]

Più di 500 pagine in italiano ...

Devi copiare tutte le righe ? ... Fai tu ...

Che vuoi dire con "sostituire ..." ... non devi sostituire nulla.

[max1850]

Le vorrei proprio vedere queste 500 pagine!
A me escono 3 pagine di ricerca di google e di queste non ne vale neanche 1!

Cmq se ti scoccia aiutare non aiutarmi proprio, almeno non perdiamo tempo!

Ciao
Max!

[oregon]

Originariamente inviato da max1850
Cmq se ti scoccia aiutare non aiutarmi proprio, almeno non perdiamo tempo!

Veramente ti ho postato il codice e non lo hai neanche provato ...

Buon lavoro.