检查 MaskedEdit 控件是否包含文本

Question

你好 我正在与 wix 合作创建一个安装。我需要一个自定义对话框来让用户定义端口。该对话框有一个 MaskedEdit 类型的控件，他应该在其中写入端口。连接到控件的属性已定义默认值。问题是，当用户按下下一步按钮时，我想确保端口字段有一个值，否则会向他显示警告。 该控件的代码如下所示：

<Property Id="DataStoragePort">4323</Property>

  <Dialog Id="DataStoragePortConfig" Width="370" Height="270" Title="CellaVision DM1 Setup">
    <Control Id="Next" Type="PushButton" X="236" Y="243" Width="56" Height="17" Default="yes" Text="Next">
    </Control>
    <Control Id="Back" Type="PushButton" X="180" Y="243" Width="56" Height="17" Text="Back">
    </Control>
    <Control Id="Cancel" Type="PushButton" X="304" Y="243" Width="56" Height="17" Cancel="yes" Text="Cancel">
      <Publish Event="SpawnDialog" Value="CancelDlg">1</Publish>
    </Control>

    <Control Id="Title" Type="Text" X="15" Y="6" Width="200" Height="15" Transparent="yes" NoPrefix="yes" Text="{\WixUI_Font_Title}Data Storage Configuration" />
    <Control Id="BannerBitmap" Type="Bitmap" X="0" Y="0" Width="370" Height="44" TabSkip="no" Text="!(loc.InstallDirDlgBannerBitmap)" />
    <Control Id="BannerLine" Type="Line" X="0" Y="44" Width="370" Height="0" />
    <Control Id="BottomLine" Type="Line" X="0" Y="234" Width="370" Height="0" />
    <Control Id="DSDescription" Type="Text" X="20" Y="60" Width="250" Height="13" NoPrefix="yes" Text="Enter the port that the Data Storage Service should run on" />
    <Control Id="DSPort" Type="Text" X="20" Y="80" Width="20" Height="13" NoPrefix="yes" Text="Port:" />
    <Control Id="DSText" Type="MaskedEdit" Text="#####" X="45" Y="78" Width="70" Height="14" Property="DataStoragePort" />
  </Dialog>

单击下一个按钮的处理如下所示：

      <Publish Dialog="DataStoragePortConfig" Control="Back" Event="NewDialog" Value="CustomizeDlg">1</Publish>
  <Publish Dialog="DataStoragePortConfig" Control="Next" Event="NewDialog" Value="VerifyReadyDlg">1</Publish>

但在下一次单击时，我想确保属性 DataStoragePort 不是空字符串。有什么建议吗？ 问候 丹尼尔

Answer 1

空的屏蔽编辑控件将其属性设置为模板字符串，其中包含空格而不是“#”和“?”。例如，如果“文本”设置为“#####”，则空值为

"     "

If "Text" is set to "###-###" the empty value is

"   -   "

在您的情况下，您可以使用此条件：

DataStoragePort <> "     "

Answer 2

我创建了 VBS 自定义操作来删除空格。

 PropertyValue = Session.Property("PROPERTYNAME")
 PropertyValue = Replace(PropertyValue," ","") 
 Session.Property("PROPERTYNAME") = PropertyValue

然后，我将该操作添加到对话框上的下一个按钮控件：
Publish Event="DoAction" Value="CA_RemoveSpaces">1"

自定义操作：
CustomAction Id="CA_RemoveSpaces" BinaryKey='CustomActionsScript' 执行='立即' Return='ignore' VBScriptCall="RemoveSpaces" Impersonate="no" />"