« previous next »
Pages: [1]   Go Down

Author Topic: WPF Message Boxes in QB64!  (Read 2694 times)

0 Members and 1 Guest are viewing this topic.

Offline SpriggsySpriggs

  • Forum Resident
  • Posts: 1145
  • Larger than life
    • View Profile
    • GitHub
WPF Message Boxes in QB64!
« on: February 21, 2020, 05:56:57 pm »
Hello, Everyone!
I've been working on trying to find new ways to make message boxes in my programs because I didn't like being limited to the Windows API. I stumbled upon a wonderful PowerShell class here https://smsagent.blog/2017/08/24/a-customisable-wpf-messagebox-for-powershell/ and I've been working on a function that takes advantage of it to create WPF Message Boxes on the fly in your programs. The PowerShell script allows for CUSTOM BUTTONS and CUSTOM COLORS/STYLES! The below function is what builds the message box that gets called using PowerShell. I've edited the original PowerShell script to work with my function and it works quite well! Eventually I will make a version that takes advantage of the custom image feature of the WPF Message Box script as well as the media player. This is a work in progress and I will update this frequently with new things! (edit: Here is my GitHub page for the current status of my project: https://github.com/SpriggsySpriggs/WPFMessageBoxQB64)
ENJOY!
Here is the edit I made to the PowerShell code:
Quote
$Params = @{
Content = $args[0]
Title = $args[1]
ButtonType = $args[2]
ContentFontSize = $args[3]
TitleFontSize = $args[4]
BorderThickness = $args[5]
CornerRadius = $args[6]
ShadowDepth = $args[7]
BlurRadius = $args[8]
Timeout = $args[9]
ContentBackground = $args[10]
FontFamily = $args[11]
TitleFontWeight = $args[12]
ContentFontWeight = $args[13]
TitleTextForeground = $args[14]
ContentTextForeground = $args[15]
BorderBrush = $args[16]
TitleBackground = $args[17]
ButtonTextForeground = $args[18]
Sound = $args[19]
CustomButtons = $args[20],$args[21],$args[22]
}
 
New-WPFMessageBox @Params
switch ($WPFMessageBoxOutput){
"OK" {exit 1}
"Cancel" {exit 2}
"Abort" {exit 3}
"Retry" {exit 4}
"Ignore" {exit 5}
"Yes" {exit 6}
"No" {exit 7}
"TryAgain" {exit 8}
"Continue" {exit 9}
"None" {exit 10}
}
Code: QB64: [Select]
  2. TYPE Params
  3.     Content AS STRING 'mandatory, otherwise defaults to "null"
  4.     Title AS STRING 'not mandatory defaults to TITLE$
  5.     ButtonType AS STRING 'defaults to "OK"
  6.     'Valid ButtonType values are "OK", "OK-Cancel", "Abort-Retry-Ignore", "Yes-No-Cancel", "Yes-No", "Retry-Cancel", "Cancel-TryAgain-Continue", "None" ("None" is used when defining custom buttons. This QB64 program allows for 3)
  7.     ContentFontSize AS STRING 'defaults to "14"
  8.     TitleFontSize AS STRING 'defaults to "14"
  9.     BorderThickness AS STRING 'defaults to "0"
  10.     CornerRadius AS STRING 'defaults to "8"
  11.     ShadowDepth AS STRING 'defaults to "3"
  12.     BlurRadius AS STRING 'defaults to "20"
  13.     'WindowHost AS STRING
  14.     Timeout AS STRING 'not mandatory
  15.     'OnLoaded AS STRING 'not mandatory
  16.     'OnClosed AS STRING 'not mandatory
  17.     ContentBackground AS STRING 'not mandatory, defaults to "White"
  18.     FontFamily AS STRING 'not mandatory, defaults to "Segoe UI"
  19.     TitleFontWeight AS STRING 'not mandatory, defaults to "Normal"
  20.     ContentFontWeight AS STRING 'not mandatory, defaults to "Normal"
  21.     ContentTextForeground AS STRING 'not mandatory, defaults to "Black"
  22.     TitleTextForeground AS STRING 'not mandatory, defaults to "Black"
  23.     BorderBrush AS STRING 'not mandatory, defaults to "Black"
  24.     TitleBackground AS STRING 'not mandatory, defaults to "White"
  25.     ButtonTextForeground AS STRING 'not mandatory, defaults to "Black"
  26.     'Valid colors are listed at https://docs.microsoft.com/en-us/dotnet/api/system.windows.media.colors?view=netframework-4.8
  27.     Sound AS STRING 'not mandatory, defaults to "Windows Notify System Generic"
  28.     'Valid sounds are "Windows Background","Windows Balloon","Windows Battery Critical","Windows Battery Low","Windows Critical Stop","Windows Default","Windows Ding","Windows Error","Windows Exclamation","Windows Feed Discovered","Windows Foreground","Windows Hardware Fail","Windows Hardware Insert","Windows Hardware Remove","Windows Information Bar","Windows Logoff Sound","Windows Logon","Windows Menu Command","Windows Message Nudge","Windows Minimize","Windows Navigation Start","Windows Notify Calendar","Windows Notify Email","Windows Notify Messaging","Windows Notify System Generic","Windows Notify","Windows Pop-up Blocked","Windows Print complete","Windows Proximity Connection","Windows Proximity Notification","Windows Recycle","Windows Restore","Windows Ringin","Windows Ringout","Windows Shutdown","Windows Startup","Windows Unlock","Windows User Account Control"
  29.     CustomButton1 AS STRING 'not mandatory, only used if ButtonType = "None"
  30.     CustomButton2 AS STRING 'not mandatory, only used if ButtonType = "None"
  31.     CustomButton3 AS STRING 'not mandatory, only used if ButtonType = "None"
  33. DIM SHARED Params AS Params
  34. FUNCTION WPFMessageBox (Params AS Params)
  35.     SHELL$ = "PowerShell -Command " + CHR$(34) + "&'" + _STARTDIR$ + "\New-WPFMessageBox.ps1'"
  36.     '==============================================================================
  37.     IF Params.Content <> "" AND INSTR(Params.Content, "\" + CHR$(34)) = 0 THEN
  38.         Params.Content = "\" + CHR$(34) + Params.Content + "\" + CHR$(34) '$args[0]
  39.         SHELL$ = SHELL$ + " " + Params.Content
  40.     ELSE
  41.         Params.Content = "null"
  42.         Params.Content = "\" + CHR$(34) + Params.Content + "\" + CHR$(34)
  43.         SHELL$ = SHELL$ + " " + Params.Content
  44.     END IF
  45.  
  46.     IF Params.Title <> "" AND INSTR(Params.Title, "\" + CHR$(34)) = 0 THEN
  47.         Params.Title = "\" + CHR$(34) + Params.Title + "\" + CHR$(34) '$args[1]
  48.         SHELL$ = SHELL$ + " " + Params.Title
  49.     ELSE
  50.         Params.Title = TITLE$
  51.         Params.Title = "\" + CHR$(34) + Params.Title + "\" + CHR$(34) '$args[1]
  52.         SHELL$ = SHELL$ + " " + Params.Title
  53.     END IF
  54.  
  55.     IF Params.ButtonType <> "" AND INSTR(Params.ButtonType, "\" + CHR$(34)) = 0 THEN
  56.         IF Params.ButtonType <> "OK" AND Params.ButtonType <> "OK-Cancel" AND Params.ButtonType <> "Abort-Retry-Ignore" AND Params.ButtonType <> "Yes-No-Cancel" AND Params.ButtonType <> "Yes-No" AND Params.ButtonType <> "Retry-Cancel" AND Params.ButtonType <> "Cancel-TryAgain-Continue" AND Params.ButtonType <> "None" THEN
  57.             Params.ButtonType = "OK"
  58.             Params.ButtonType = "\" + CHR$(34) + Params.ButtonType + "\" + CHR$(34)
  59.             SHELL$ = SHELL$ + " " + Params.ButtonType
  60.         ELSE
  61.             Params.ButtonType = "\" + CHR$(34) + Params.ButtonType + "\" + CHR$(34) '$args[2]
  62.             SHELL$ = SHELL$ + " " + Params.ButtonType
  63.         END IF
  64.     ELSE
  65.         Params.ButtonType = "OK"
  66.         Params.ButtonType = "\" + CHR$(34) + Params.ButtonType + "\" + CHR$(34)
  67.         SHELL$ = SHELL$ + " " + Params.ButtonType
  68.     END IF
  69.  
  70.     IF Params.ContentFontSize <> "" AND INSTR(Params.ContentFontSize, "\" + CHR$(34)) = 0 THEN
  71.         Params.ContentFontSize = "\" + CHR$(34) + Params.ContentFontSize + "\" + CHR$(34) '$args[3]
  72.         SHELL$ = SHELL$ + " " + Params.ContentFontSize
  73.     ELSE
  74.         Params.ContentFontSize = "14"
  75.         Params.ContentFontSize = "\" + CHR$(34) + Params.ContentFontSize + "\" + CHR$(34)
  76.         SHELL$ = SHELL$ + " " + Params.ContentFontSize
  77.     END IF
  78.  
  79.     IF Params.TitleFontSize <> "" AND INSTR(Params.TitleFontSize, "\" + CHR$(34)) = 0 THEN
  80.         Params.TitleFontSize = "\" + CHR$(34) + Params.TitleFontSize + "\" + CHR$(34) '$args[4]
  81.         SHELL$ = SHELL$ + " " + Params.TitleFontSize
  82.     ELSE
  83.         Params.TitleFontSize = "14"
  84.         Params.TitleFontSize = "\" + CHR$(34) + Params.TitleFontSize + "\" + CHR$(34)
  85.         SHELL$ = SHELL$ + " " + Params.TitleFontSize
  86.     END IF
  87.  
  88.     IF Params.BorderThickness <> "" AND INSTR(Params.BorderThickness, "\" + CHR$(34)) = 0 THEN
  89.         Params.BorderThickness = "\" + CHR$(34) + Params.BorderThickness + "\" + CHR$(34) '$args[5]
  90.         SHELL$ = SHELL$ + " " + Params.BorderThickness
  91.     ELSE
  92.         Params.BorderThickness = "0"
  93.         Params.BorderThickness = "\" + CHR$(34) + Params.BorderThickness + "\" + CHR$(34)
  94.         SHELL$ = SHELL$ + " " + Params.BorderThickness
  95.     END IF
  96.  
  97.     IF Params.CornerRadius <> "" AND INSTR(Params.CornerRadius, "\" + CHR$(34)) = 0 THEN
  98.         Params.CornerRadius = "\" + CHR$(34) + Params.CornerRadius + "\" + CHR$(34) '$args[6]
  99.         SHELL$ = SHELL$ + " " + Params.CornerRadius
  100.     ELSE
  101.         Params.CornerRadius = "5"
  102.         Params.CornerRadius = "\" + CHR$(34) + Params.CornerRadius + "\" + CHR$(34)
  103.         SHELL$ = SHELL$ + " " + Params.CornerRadius
  104.     END IF
  105.  
  106.     IF Params.ShadowDepth <> "" AND INSTR(Params.ShadowDepth, "\" + CHR$(34)) = 0 THEN
  107.         Params.ShadowDepth = "\" + CHR$(34) + Params.ShadowDepth + "\" + CHR$(34) '$args[7]
  108.         SHELL$ = SHELL$ + " " + Params.ShadowDepth
  109.     ELSE
  110.         Params.ShadowDepth = "3"
  111.         Params.ShadowDepth = "\" + CHR$(34) + Params.ShadowDepth + "\" + CHR$(34)
  112.         SHELL$ = SHELL$ + " " + Params.ShadowDepth
  113.     END IF
  114.  
  115.     IF Params.BlurRadius <> "" AND INSTR(Params.BlurRadius, "\" + CHR$(34)) = 0 THEN
  116.         Params.BlurRadius = "\" + CHR$(34) + Params.BlurRadius + "\" + CHR$(34) '$args[8]
  117.         SHELL$ = SHELL$ + " " + Params.BlurRadius
  118.     ELSE
  119.         Params.BlurRadius = "20"
  120.         Params.BlurRadius = "\" + CHR$(34) + Params.BlurRadius + "\" + CHR$(34)
  121.         SHELL$ = SHELL$ + " " + Params.BlurRadius
  122.     END IF
  123.  
  124.     IF Params.Timeout <> "" AND INSTR(Params.Timeout, "\" + CHR$(34)) = 0 THEN
  125.         Params.Timeout = "\" + CHR$(34) + Params.Timeout + "\" + CHR$(34) '$args[9]
  126.         SHELL$ = SHELL$ + " " + Params.Timeout
  127.     ELSE
  128.         Params.Timeout = "999"
  129.         Params.Timeout = "\" + CHR$(34) + Params.Timeout + "\" + CHR$(34)
  130.         SHELL$ = SHELL$ + " " + Params.Timeout
  131.     END IF
  132.  
  133.     IF Params.ContentBackground <> "" AND INSTR(Params.ContentBackground, "\" + CHR$(34)) = 0 THEN
  134.         Params.ContentBackground = "\" + CHR$(34) + Params.ContentBackground + "\" + CHR$(34) '$args[10]
  135.         SHELL$ = SHELL$ + " " + Params.ContentBackground
  136.     ELSE
  137.         Params.ContentBackground = "White"
  138.         Params.ContentBackground = "\" + CHR$(34) + Params.ContentBackground + "\" + CHR$(34)
  139.         SHELL$ = SHELL$ + " " + Params.ContentBackground
  140.     END IF
  141.  
  142.     IF Params.FontFamily <> "" AND INSTR(Params.FontFamily, "\" + CHR$(34)) = 0 THEN
  143.         Params.FontFamily = "\" + CHR$(34) + Params.FontFamily + "\" + CHR$(34) '$args[11]
  144.         SHELL$ = SHELL$ + " " + Params.FontFamily
  145.     ELSE
  146.         Params.FontFamily = "Segoe UI"
  147.         Params.FontFamily = "\" + CHR$(34) + Params.FontFamily + "\" + CHR$(34)
  148.         SHELL$ = SHELL$ + " " + Params.FontFamily
  149.     END IF
  150.  
  151.     IF Params.TitleFontWeight <> "" AND INSTR(Params.TitleFontWeight, "\" + CHR$(34)) = 0 THEN
  152.         Params.TitleFontWeight = "\" + CHR$(34) + Params.TitleFontWeight + "\" + CHR$(34) '$args[12]
  153.         SHELL$ = SHELL$ + " " + Params.TitleFontWeight
  154.     ELSE
  155.         Params.TitleFontWeight = "Normal"
  156.         Params.TitleFontWeight = "\" + CHR$(34) + Params.TitleFontWeight + "\" + CHR$(34)
  157.         SHELL$ = SHELL$ + " " + Params.TitleFontWeight
  158.     END IF
  159.  
  160.     IF Params.ContentFontWeight <> "" AND INSTR(Params.ContentFontWeight, "\" + CHR$(34)) = 0 THEN
  161.         Params.ContentFontWeight = "\" + CHR$(34) + Params.ContentFontWeight + "\" + CHR$(34) '$args[13]
  162.         SHELL$ = SHELL$ + " " + Params.ContentFontWeight
  163.     ELSE
  164.         Params.ContentFontWeight = "Normal"
  165.         Params.ContentFontWeight = "\" + CHR$(34) + Params.ContentFontWeight + "\" + CHR$(34)
  166.         SHELL$ = SHELL$ + " " + Params.ContentFontWeight
  167.     END IF
  168.  
  169.     IF Params.TitleTextForeground <> "" AND INSTR(Params.TitleTextForeground, "\" + CHR$(34)) = 0 THEN
  170.         Params.TitleTextForeground = "\" + CHR$(34) + Params.TitleTextForeground + "\" + CHR$(34) '$args[14]
  171.         SHELL$ = SHELL$ + " " + Params.TitleTextForeground
  172.     ELSE
  173.         Params.TitleTextForeground = "Black"
  174.         Params.TitleTextForeground = "\" + CHR$(34) + Params.TitleTextForeground + "\" + CHR$(34)
  175.         SHELL$ = SHELL$ + " " + Params.TitleTextForeground
  176.     END IF
  177.  
  178.     IF Params.ContentTextForeground <> "" AND INSTR(Params.ContentTextForeground, "\" + CHR$(34)) = 0 THEN
  179.         Params.ContentTextForeground = "\" + CHR$(34) + Params.ContentTextForeground + "\" + CHR$(34) '$args[15]
  180.         SHELL$ = SHELL$ + " " + Params.ContentTextForeground
  181.     ELSE
  182.         Params.ContentTextForeground = "Black"
  183.         Params.ContentTextForeground = "\" + CHR$(34) + Params.ContentTextForeground + "\" + CHR$(34)
  184.         SHELL$ = SHELL$ + " " + Params.ContentTextForeground
  185.     END IF
  186.  
  187.     IF Params.BorderBrush <> "" AND INSTR(Params.BorderBrush, "\" + CHR$(34)) = 0 THEN
  188.         Params.BorderBrush = "\" + CHR$(34) + Params.BorderBrush + "\" + CHR$(34) '$args[16]
  189.         SHELL$ = SHELL$ + " " + Params.BorderBrush
  190.     ELSE
  191.         Params.BorderBrush = "Black"
  192.         Params.BorderBrush = "\" + CHR$(34) + Params.BorderBrush + "\" + CHR$(34)
  193.         SHELL$ = SHELL$ + " " + Params.BorderBrush
  194.     END IF
  195.  
  196.     IF Params.TitleBackground <> "" AND INSTR(Params.TitleBackground, "\" + CHR$(34)) = 0 THEN
  197.         Params.TitleBackground = "\" + CHR$(34) + Params.TitleBackground + "\" + CHR$(34) '$args[17]
  198.         SHELL$ = SHELL$ + " " + Params.TitleBackground
  199.     ELSE
  200.         Params.TitleBackground = "White"
  201.         Params.TitleBackground = "\" + CHR$(34) + Params.TitleBackground + "\" + CHR$(34)
  202.         SHELL$ = SHELL$ + " " + Params.TitleBackground
  203.     END IF
  204.  
  205.     IF Params.ButtonTextForeground <> "" AND INSTR(Params.ButtonTextForeground, "\" + CHR$(34)) = 0 THEN
  206.         Params.ButtonTextForeground = "\" + CHR$(34) + Params.ButtonTextForeground + "\" + CHR$(34) '$args[18]
  207.         SHELL$ = SHELL$ + " " + Params.ButtonTextForeground
  208.     ELSE
  209.         Params.ButtonTextForeground = "Black"
  210.         Params.ButtonTextForeground = "\" + CHR$(34) + Params.ButtonTextForeground + "\" + CHR$(34)
  211.         SHELL$ = SHELL$ + " " + Params.ButtonTextForeground
  212.     END IF
  213.  
  214.     IF Params.Sound <> "" AND INSTR(Params.Sound, "\" + CHR$(34)) = 0 THEN
  215.         Params.Sound = "\" + CHR$(34) + Params.Sound + "\" + CHR$(34) '$args[19]
  216.         SHELL$ = SHELL$ + " " + Params.Sound
  217.     ELSE
  218.         Params.Sound = "Windows Notify System Generic"
  219.         Params.Sound = "\" + CHR$(34) + Params.Sound + "\" + CHR$(34)
  220.         SHELL$ = SHELL$ + " " + Params.Sound
  221.     END IF
  222.  
  223.     IF Params.CustomButton1 <> "" AND INSTR(Params.CustomButton1, "\" + CHR$(34)) = 0 THEN
  224.         Params.CustomButton1 = "\" + CHR$(34) + Params.CustomButton1 + "\" + CHR$(34) '$args[20]
  225.         SHELL$ = SHELL$ + " " + Params.CustomButton1
  226.     END IF
  227.  
  228.     IF Params.CustomButton2 <> "" AND INSTR(Params.CustomButton2, "\" + CHR$(34)) = 0 THEN
  229.         Params.CustomButton2 = "\" + CHR$(34) + Params.CustomButton2 + "\" + CHR$(34) '$args[21]
  230.         SHELL$ = SHELL$ + " " + Params.CustomButton2
  231.     END IF
  232.  
  233.     IF Params.CustomButton3 <> "" AND INSTR(Params.CustomButton3, "\" + CHR$(34)) = 0 THEN
  234.         Params.CustomButton3 = "\" + CHR$(34) + Params.CustomButton3 + "\" + CHR$(34) '$args[22]
  235.         SHELL$ = SHELL$ + " " + Params.CustomButton3
  236.     END IF
  237.  
  238.     SHELL$ = SHELL$ + ";exit $LASTEXITCODE" + CHR$(34)
  239.     a = _SHELLHIDE(SHELL$)
  240.  
  241.     WPFMessageBox = a
« Last Edit: February 22, 2020, 09:32:31 pm by SpriggsySpriggs »
Logged
Shuwatch!

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: WPF Message Boxes in QB64!
« Reply #1 on: February 21, 2020, 08:17:13 pm »
Hi SpriggsySprings,

Welcome to the forum and a fan of the messagebox!

I tried one too, all in QB64:
https://www.qb64.org/forum/index.php?topic=1511.msg107661#msg107661
Logged

Offline SpriggsySpriggs

  • Forum Resident
  • Posts: 1145
  • Larger than life
    • View Profile
    • GitHub
Re: WPF Message Boxes in QB64!
« Reply #2 on: February 21, 2020, 08:21:29 pm »
Thanks! Your code output looks really cool!
Logged
Shuwatch!

Offline TerryRitchie

  • Seasoned Forum Regular
  • Posts: 495
  • Semper Fidelis
    • View Profile
Re: WPF Message Boxes in QB64!
« Reply #3 on: February 21, 2020, 11:49:48 pm »
Thank you for the new message box method. Really cool.

Also, Welcome :-)
Logged
In order to understand recursion, one must first understand recursion.
Pages: [1]   Go Up
« previous next »