28 lines
1.1 KiB
VB.net
28 lines
1.1 KiB
VB.net
Imports System.ComponentModel
|
|
Imports Microsoft.Web.WebView2.Core
|
|
|
|
Public Class Form38
|
|
Public opentomusique As Integer = 0
|
|
|
|
Private Sub WebView21_SourceChanged(sender As Object, e As CoreWebView2SourceChangedEventArgs) Handles WebView21.SourceChanged
|
|
Try
|
|
WebView21.CoreWebView2.Settings.AreDefaultContextMenusEnabled = False
|
|
WebView21.CoreWebView2.Settings.AreBrowserAcceleratorKeysEnabled = False
|
|
Catch ex As Exception
|
|
WebView21.CoreWebView2.Settings.AreDefaultContextMenusEnabled = False
|
|
WebView21.CoreWebView2.Settings.AreBrowserAcceleratorKeysEnabled = False
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Form38_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
|
WebView21.Source = New System.Uri("https://lecteur-media.fr/", System.UriKind.Absolute)
|
|
If opentomusique = 1 Then
|
|
opentomusique = 0
|
|
Form25.AxWindowsMediaPlayer1.Ctlcontrols.play()
|
|
Form25.PictureBox1.Hide()
|
|
Form25.PictureBox2.Show()
|
|
Else
|
|
|
|
End If
|
|
End Sub
|
|
End Class |