Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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ü
@benbendedeilem
Cevapla
#2
' 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)
Cevapla
#3
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.
Cevapla
#4
teşekkürler sn. @feraz
Cevapla
#5
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)
Cevapla
#6
objWshShell türü nedir 
Dim objWshShell as XXXXXX
XXXXXX yerine ne yazmalıyız
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da