PicoFilter/Form2.vb at main · ReGoMark/PicoFilter · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
Imports System.ComponentModel

Public Class Form2

    Private Sub Label9_Click(sender As Object, e As EventArgs)
        Dim url As String = "https://github.com/ReGoMark/PicoFilter"
        Try
            ' 使用默认浏览器打开网页
            Process.Start(url)
        Catch ex As Exception
        End Try
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub PlayNotificationSound()
        Try
            ' 从资源播放音效
            My.Computer.Audio.Play(My.Resources.INFO, AudioPlayMode.Background)
        Catch ex As Exception
        End Try
    End Sub

    Private Sub Label11_Click(sender As Object, e As EventArgs)
        Process1.StartInfo.UseShellExecute = True
        Process1.StartInfo.FileName = Application.StartupPath & "\tutorial.mp4"

        '' 显示文件路径以便调试
        'MessageBox.Show("尝试打开文件: " & Process1.StartInfo.FileName)

        Try
            Process1.Start()
        Catch ex As Exception
            MessageBox.Show("无法打开视频教程，请检查文件是否存在。", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub Label8_Click(sender As Object, e As EventArgs) Handles Label8.Click
        'Try
        '    Clipboard.SetText("regmvks@outlook.com")
        '    MessageBox.Show("邮箱regmvks@outlook.com已复制到剪切板！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
        'Catch ex As Exception
        '    MessageBox.Show("复制邮箱失败，请重试。", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
        'End Try
        Process.Start("mailto:regmvks@outlook.com")
    End Sub

    Private Sub Label19_Click(sender As Object, e As EventArgs)
        Dim url As String = "https://baike.baidu.com/item/%E6%84%BF%E4%BD%A0%E5%86%B3%E5%AE%9A/7483097"
        Try
            ' 使用默认浏览器打开网页
            Process.Start(url)
        Catch ex As Exception
        End Try
    End Sub

    Private Sub Label16_Click(sender As Object, e As EventArgs) Handles Label16.Click
        Dim url As String = "https://www.foundertype.com/index.php/About/powerAllowPro.html"
        Try
            ' 使用默认浏览器打开网页
            Process.Start(url)
        Catch ex As Exception
        End Try
    End Sub

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MetroTabControl1.SelectedTab = MetroTabControl1.TabPages(0)
        Me.ActiveControl = Nothing ' 取消默认控件焦点
        'PlayNotificationSound()
    End Sub

    Private Sub Form2_HelpButtonClicked(sender As Object, e As CancelEventArgs) Handles Me.HelpButtonClicked
        Try
            Process.Start("https://flowus.cn/regmvks/share/e717713c-be23-4124-b364-878960e75a4e?code=98NZC1")
        Catch ex As Exception
            MessageBox.Show("无法打开链接。" & vbCrLf & ex.Message, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

End Class