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

Createobject("wscript.shell").popup Mesajda 3 Buton Ve Default Seçim - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Createobject("wscript.shell").popup Mesajda 3 Buton Ve Default Seçim (/konu-createobject-wscript-shell-popup-mesajda-3-buton-ve-default-secim.html)

Sayfalar: 1 2 3 4 5

Createobject("wscript.shell").popup Mesajda 3 Buton Ve Default Seçim - accessman - 24/03/2020

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ü

Cvp: Createobject("wscript.shell").popup Mesajda 3 Buton Ve Default Seçim - accessman - 24/03/2020

' 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)

Cvp: Createobject("wscript.shell").popup Mesajda 3 Buton Ve Default Seçim - feraz - 24/03/2020

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.

Cvp: Createobject("wscript.shell").popup Mesajda 3 Buton Ve Default Seçim - accessman - 24/03/2020

teşekkürler sn. @feraz

Cvp: Createobject("wscript.shell").popup Mesajda 3 Buton Ve Default Seçim - berduş - 24/03/2020

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)

Cvp: Createobject("wscript.shell").popup Mesajda 3 Buton Ve Default Seçim - accessman - 24/03/2020

objWshShell türü nedir
Dim objWshShell as XXXXXX
XXXXXX yerine ne yazmalıyız