MyImage 控件

Plain Craft Launcher 2/Controls/MyImage.vb

@@ -0,0 +1,34 @@
+Public Class MyImage
+    Inherits Image
+
+    '事件
+
+    Public Uuid As Integer = GetUuid()
+
+    Private _SourceData As String = ""
+
+    ''' <summary>
+    ''' 重写Image的Source属性
+    ''' </summary>
+    Public Shadows Property Source As String
+        Get
+            Return _SourceData
+        End Get
+        Set(value As String)
+            SetImage(value)
+        End Set
+    End Property
+    Public Shared Shadows ReadOnly SourceProperty As DependencyProperty = DependencyProperty.Register("Source", GetType(String), GetType(MyImage), New PropertyMetadata(New PropertyChangedCallback(
+                                                                                                                                                               Sub(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
+                                                                                                                                                                   If Not IsNothing(sender) Then
+                                                                                                                                                                       CType(sender, MyImage).SetImage(e.NewValue)
+                                                                                                                                                                   End If
+                                                                                                                                                               End Sub)))
+
+    Private Sub SetImage(source As String)
+        If Me Is Nothing Then Exit Sub
+        If String.IsNullOrEmpty(source) Then Exit Sub
+        _SourceData = source
+        MyBase.Source = New MyBitmap(_SourceData)
+    End Sub
+End Class

Plain Craft Launcher 2/Modules/Base/MyBitmap.vb

@@ -64,6 +64,18 @@ Public Class MyBitmap
                     BitmapCache.Add(FilePathOrResourceName, Pic)
                 End If
             Else
+                If FilePathOrResourceName.StartsWithF("http") Then '在线图片（这里判断 https:\\ 或 http:\\ 会出问题）
+                    Dim tempFile = PathTemp & "Cache\MyImage\" & GetHash(FilePathOrResourceName)
+                    NetDownload(FilePathOrResourceName, tempFile, True)
+                    FilePathOrResourceName = tempFile
+                ElseIf FilePathOrResourceName.StartsWithF("data:image/png;base64,") Then 'base64 图片
+                    Dim base64Data = FilePathOrResourceName.Split(",")(1)
+                    Dim imageData = Convert.FromBase64String(base64Data)
+                    Using ms = New MemoryStream(imageData)
+                        Pic = New System.Drawing.Bitmap(ms)
+                    End Using
+                    Return
+                End If
                 '使用这种自己接管 FileStream 的方法加载才能解除文件占用
                 Using InputStream As New FileStream(FilePathOrResourceName, FileMode.Open)
                     '判断是否为 WebP 文件头

Plain Craft Launcher 2/Plain Craft Launcher 2.vbproj

@@ -191,9 +191,7 @@
     <Compile Include="Controls\MyIconTextButton.xaml.vb">
       <DependentUpon>MyIconTextButton.xaml</DependentUpon>
     </Compile>
-
-
-
+    <Compile Include="Controls\MyImage.vb" />
     <Compile Include="Modules\Minecraft\ModComp.vb" />
     <Compile Include="Modules\Minecraft\ModJava.vb" />
     <Compile Include="Modules\Minecraft\ModMod.vb" />
@@ -478,7 +476,6 @@
       <DependentUpon>FormMain.xaml</DependentUpon>
       <SubType>Code</SubType>
     </Compile>
-
     <Page Include="Modules\Minecraft\MyLocalModItem.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
@@ -913,7 +910,6 @@
     <Resource Include="Images\Heads\MCBBS.png" />
   </ItemGroup>
   <ItemGroup>
-
   </ItemGroup>
   <ItemGroup>
     <Resource Include="Images\Blocks\NeoForge.png" />