使用Ace进行VB代码高亮

效果：

代码实现：

<head>
    <script src="https://cdnjs.cloudflare.com/ajax/libs/ace/1.4.12/ace.js"></script>
</head>

<div id="editor" style="width: 800px; height: 600px;"></div>

<script>
    var editor = ace.edit("editor");
    editor.setTheme("ace/theme/monokai");
    editor.session.setMode("ace/mode/vbscript");
    editor.setValue(`Imports System.Drawing
Imports System.Windows.Forms

Module Program
    Sub Main()
        ' 创建一个新的位图，大小为300x300像素，背景为白色
        Dim bmp As New Bitmap(300, 300)
        Using g As Graphics = Graphics.FromImage(bmp)
            g.Clear(Color.White)

            ' 绘制黑色的圆形头部
            Dim headRect As New Rectangle(50, 50, 200, 200)
            g.FillEllipse(Brushes.Black, headRect)

            ' 绘制黑色的眼睛
            Dim eyeSize As Integer = 40
            Dim eye1Rect As New Rectangle(90, 100, eyeSize, eyeSize)
            Dim eye2Rect As New Rectangle(170, 100, eyeSize, eyeSize)
            g.FillEllipse(Brushes.Black, eye1Rect)
            g.FillEllipse(Brushes.Black, eye2Rect)

            ' 绘制黑色的鼻子
            Dim noseRect As New Rectangle(130, 150, 40, 40)
            g.FillEllipse(Brushes.Black, noseRect)

            ' 绘制黑色的嘴巴
            Dim mouthRect As New Rectangle(90, 180, 100, 70)
            g.FillEllipse(Brushes.Black, mouthRect)

            ' 绘制黑色的耳朵
            Dim earSize As Integer = 80
            Dim ear1Rect As New Rectangle(30, 80, earSize, earSize)
            Dim ear2Rect As New Rectangle(240, 80, earSize, earSize)
            g.FillEllipse(Brushes.Black, ear1Rect)
            g.FillEllipse(Brushes.Black, ear2Rect)
        End Using

        ' 将绘制的图片保存为文件
        bmp.Save("panda.bmp")
        MessageBox.Show("熊猫图片已绘制完成并保存为panda.bmp")

        ' 在窗口中显示绘制的图片
        Dim form As New Form()
        Dim pictureBox As New PictureBox()
        pictureBox.Image = bmp
        form.Controls.Add(pictureBox)
        Application.Run(form)
		
		For i = 1 To 5
			Console.WriteLine(i)
		Next
		Dim num As Integer = 10
		If num > 5 Then
			Console.WriteLine("数字大于5")
		End If
			End Sub
		End Module`);
</script>

　　

 

posted @ 2023-12-18 17:12  bonelee  阅读(49)  评论(0)    收藏  举报