在uwp中复活常用的vb库函数
Posted
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了在uwp中复活常用的vb库函数相关的知识，希望对你有一定的参考价值。
这个博文是纯原创的，转载一定要说明作者是 Nukepayload2！！
在.Net Core 中，很多地方被精简了，有个重灾区就是vb语言库。从当初的囊括vb6库函数并且附带后期绑定到现在的几个函数加上后期绑定，连End和Mid语句对应的库函数都被删掉了。
其中有些函数是不该删掉的。那么要用的话就得手动还原一下了。
首先是各种Hello world里面喜闻乐见的 MsgBox 和 InputBox 函数。
它们在Microsoft.VisualBasic的Interaction里面。
新建个模块，叫Interaction。
先分析一下 MsgBox 。这个函数作用是弹窗，显示标题，内容和选项按钮。
按钮比较常用的是两个按钮和一个按钮的情况。帮助不常用，三个按钮也不常用。
那么就实现一个或两个按钮的好了。返回值是True就按了确定，False是按了取消，如果没有值就说明对话框被强行关闭了。
由于是uwp，同步版本的很难实现。那就写个异步版本的好了。
Public Async Function MsgBoxAsync(Prompt$, HasCancel As Boolean, Title$, Optional OK$ = "确定", Optional Cancel$ = "取消") As Task(Of Boolean?) Dim dlg As New MessageDialog(Prompt, Title) Dim Result As Boolean? If HasCancel Then Dim msg As New MessageDialog(Prompt, Title) msg.Commands.Add(New UICommand(OK, Sub(command) Result = True)) msg.Commands.Add(New UICommand(Cancel, Sub(command) Result = False)) msg.DefaultCommandIndex = 0 msg.CancelCommandIndex = 1 Dim tsk = msg.ShowAsync Await tsk Return Result Else Await New MessageDialog(Prompt, Title).ShowAsync Return True End If End Function
接下来轮到 InputBox 了。
这个是用来收集输入的，一个文本框，一句提示语，两个常用的按钮，也附带了不常用的帮助功能按钮。
为了图省事我还是不写帮助按钮了。取消按钮用处也不大，不写了，因为UWP的文本框自带清除按钮。
首先新建个对话框，在Xaml代码写这个：
<ContentDialog x:Class="Nukepayload2.VisualBasicExtensions.UWP.InputBox" xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" HorizontalContentAlignment="Stretch" VerticalContentAlignment="Stretch" xmlns:d="http://schemas.microsoft.com/expression/blend/2008" xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" mc:Ignorable="d"> <ContentDialog.Content> <Grid MinWidth="100" MinHeight="100"> <Grid.RowDefinitions> <RowDefinition Height="13*"/> <RowDefinition Height="7*"/> </Grid.RowDefinitions> <Grid.ColumnDefinitions> <ColumnDefinition Width="71*"/> <ColumnDefinition Width="19*"/> </Grid.ColumnDefinitions> <TextBlock x:Name="TxtPrompt"></TextBlock> <TextBox x:Name="TxtOutput" Grid.Row="1"></TextBox> <Button Grid.Row="1" Grid.Column="1" Click="BtnOk_Click">确定</Button> </Grid> </ContentDialog.Content> </ContentDialog>
后面的vb代码（考虑了虚拟键盘）：
Public NotInheritable Class InputBox Inherits ContentDialog Public Overloads Async Function ShowAsync(Prompt As String, Title As String, Optional InputScope As InputScopeNameValue = InputScopeNameValue.Text) As Task(Of String) Me.Title = Title TxtPrompt.Text = Prompt TxtOutput.Text = "" TxtOutput.InputScope = New InputScope TxtOutput.InputScope.Names.Add(New InputScopeName(InputScope)) Await ShowAsync() Return TxtOutput.Text End Function Private Sub BtnOk_Click(sender As Object, e As RoutedEventArgs) Hide() End Sub End Class
我的控件命名方式有点奇葩，大家按照自己的习惯写就好。
最后在Interaction模块写上这个函数的代码
Dim inputbox As New InputBox() Public Async Function InputBoxAsync(Prompt$, Title$, Optional InputScope As InputScopeNameValue = InputScopeNameValue.Text) As Task(Of String) Return Await inputbox.ShowAsync(Prompt, Title, InputScope) End Function
还有些比较常用的，比如Rnd和Randomize
这两个随机数函数比直接用Random类方便一些，尤其是做单精度浮点数计算的时候。
这里我没有用BitConverter转换Single和Integer，而是用联合体。读者自己实现的时候可以尝试一下BitConverter。
还有，默认的0作为种子这个限制可以顺手去除。
Imports System.Runtime.InteropServices Public Module VBMath Dim rand As New RandomPublic Sub Randomize() rand = New Random End Sub Public Sub Randomize(Number As Single) rand = New Random(New SingleInt32(Number).Int32Value) End Sub Public Function Rnd() As Single Return rand.NextDouble End Function Public Function Rnd(Number As Single) As Single rand = New Random(New SingleInt32(Number).Int32Value) Return Rnd End Function Private Structure SingleInt32 Sub New(SingleValue!) Me.SingleValue = SingleValue End Sub Sub New(Int32Value%) Me.Int32Value = Int32Value End Sub <FieldOffset(0)> Dim SingleValue! <FieldOffset(0)> Dim Int32Value% End Structure End Module
接下来要重新实现的函数在游戏角色名称处理，敏感词处理等场合用得比较多。
多功能的字符串转换器 StrConv
不管是简体繁体转换，还是全角半角转换，或者是特殊的大小写格式转换，它都能搞定。
我写之前查了msdn，上面只能找到一个本机的函数能替代它。那么我就利用它实现StrConv。
声明是这个，写之前要看看。这个函数在Windows.h里面声明了。
int LCMapStringEx( _In_opt_ LPCWSTR lpLocaleName, _In_ DWORD dwMapFlags, _In_ LPCWSTR lpSrcStr, _In_ int cchSrc, _Out_opt_ LPWSTR lpDestStr, _In_ int cchDest, _In_opt_ LPNLSVERSIONINFO lpVersionInformation, _In_opt_ LPVOID lpReserved, _In_opt_ LPARAM sortHandle );
看完之后就开始折腾！
新建个windows 运行时组件，然后新建给类，把这个写进去：
static String^ LCMapString(String^ LocaleName, int MapFlags, String^ Source) { int len = Source->Length(); auto str = ref new String(new wchar_t[len + 1], len); LCMapStringEx(LocaleName->Begin(), MapFlags, Source->Begin(), len, const_cast<wchar_t*>(str->Begin()), len, NULL, NULL, NULL); return str; }
上面和下面这段c++/cx代码只是传达一下意思，并没有经过测试。
static String^ LCMapString(int MapFlags, String^ Source) { len = Source->Length(); auto str = ref new String(new wchar_t[len + 1], len); LCMapStringEx(LOCALE_NAME_USER_DEFAULT, MapFlags, Source->Begin(), len, const_cast<wchar_t*>(str->Begin()), len, NULL, NULL, NULL); return str; }
注意看参数，里面的MapFlags还跟本机的LCMapStringEx一样，需要把vb的常量转换为这种标记值。
首先定义一下VbStrConv枚举。这个部分也可以用vb完成。
public enum class VbStrConv { Hiragana = 0x20, Katakana = 0x10, LinguisticCasing = 0x400, Lowercase = 2, Narrow = 8, None = 0, ProperCase = 3, SimplifiedChinese = 0x100, TraditionalChinese = 0x200, Uppercase = 1, Wide = 4 };
然后写转换函数。如果那个枚举是在vb实现的，转换函数也在vb写。
static int VbStrConvToMapFlags(VbStrConv value) { int val = static_cast<int>(value); int flag = 0; //宽窄 if (val & VbStrConv::Wide == VbStrConv::Wide) { flag &= LCMAP_FULLWIDTH; } else if (val & VbStrConv::Narrow == VbStrConv::Narrow) { flag &= LCMAP_HALFWIDTH; } //大小写 if (val & VbStrConv::ProperCase == VbStrConv::ProperCase) { flag &= LCMAP_TITLECASE; } else if (val & VbStrConv::Uppercase == VbStrConv::Uppercase) { flag &= LCMAP_UPPERCASE; } else if (val & VbStrConv::Lowercase == VbStrConv::Lowercase) { flag &= LCMAP_LOWERCASE; } else if (val & VbStrConv::LinguisticCasing == VbStrConv::LinguisticCasing) { flag &= LCMAP_LINGUISTIC_CASING; } //日语 if (val & VbStrConv::Hiragana == VbStrConv::Hiragana) { flag &= LCMAP_HIRAGANA; } else if (val & VbStrConv::Katakana == VbStrConv::Katakana) { flag &= LCMAP_KATAKANA; } //汉语 if (val & VbStrConv::SimplifiedChinese == VbStrConv::SimplifiedChinese) { flag &= LCMAP_SIMPLIFIED_CHINESE; } else if (val & VbStrConv::TraditionalChinese == VbStrConv::TraditionalChinese) { flag &= LCMAP_TRADITIONAL_CHINESE; } return flag; }
剩下的工作就交给vb了。Locale名称与之前的库函数不太一样，之前用的是LCID。重新实现后的用的是字符串，更加容易与已经存在的本地化API共同使用。
Imports Nukepayload2.VisualBasicExtensions.UWP.Native.Strings Public Module Strings Public Function StrConv$(Source$, Conversion As VbStrConv) Return LCMapString(VbStrConvToMapFlags(Conversion), Source) End Function Public Function StrConv$(Source$, Conversion As VbStrConv, LocaleName$) Return LCMapString(LocaleName, VbStrConvToMapFlags(Conversion), Source) End Function End Module
以上是关于在uwp中复活常用的vb库函数的主要内容，如果未能解决你的问题，请参考以下文章