Createobject("wscript.shell").popup Mesajda 3 Buton Ve Default Seçim

1 2 3 4 5
24/03/2020, 10:33

accessman

iyi günler
Public Function closingMsgBox(mesaj As String, Title As String, sure As Integer)
    CreateObject("WScript.Shell").PopUp mesaj, sure, Title, vbOKOnly + vbExclamation
End Function
ile kendiliğinden kapanan mesaj kutusu yapılıyor bunu 3 butonlu vbYesNoCancel olacak şekilde ayarlayıp istediğimiz bir butonu varsayılan olarak belirleyebilir miyiz
mesela hiç tıklanmazsa yes kabul etsin veya istersek no kabul etsin bu seçimi de fonksiyona argument olarak göndersek mümkün mü
24/03/2020, 10:48

accessman

' First, set up the message
'
strText = "Are you sure you want to copy" & Chr(13)
strText = strText & "the selected files to drive A?"
strTitle = "Copy Files"
intType = vbYesNoCancel + vbQuestion + vbDefaultButton2
'
' Now display it
'
Set objWshShell = WScript.CreateObject("WScript.Shell")
intResult = objWshShell.Popup(strText, ,strTitle, intType)
24/03/2020, 11:13

feraz

Abey geçen bir videoda gördüm.Adam mesaj için userform ekliyor.Onun içine butonlar ve icon ekleyiyor ve mesaj labeli.Aynı mesaj kutusu gibi oluyor.Mesaj çıkıncada 5 saniye sonra kapanıyor otomatik olarak.

Wait(now+time("00:00:05") gibi kod ekleme ile 5 saniye bekliyor ve olay tamam.
24/03/2020, 11:17

accessman

teşekkürler sn. @feraz
24/03/2020, 11:23

berduş

Set objWshShell = WScript.CreateObject("WScript.Shell")
satırında WScript fazlaydı onu sildim sadece
teşekkürler
strText = "Birşeyler yapılacak" & Chr(13)
strText = strText & "Yapmak istediğine eminmisin"
strTitle = "Onay Penceresi"
intType = vbYesNoCancel + vbQuestion + vbDefaultButton2
intSure = 5 'süre saniye cinsinden

Set objWshShell = CreateObject("WScript.Shell")
intResult = objWshShell.PopUp(strText, intSure, strTitle, intType)
24/03/2020, 11:32

accessman

objWshShell türü nedir 
Dim objWshShell as XXXXXX
XXXXXX yerine ne yazmalıyız
1 2 3 4 5