随便看看 - 代码贴

[VB.net]控件

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      ' Set the caption bar text of the form.
      Me.Text = "tutorialspont.com"
   End Sub

   Private Sub txtID_MouseEnter(sender As Object, e As EventArgs)_
        Handles txtID.MouseEnter
      'code for handling mouse enter on ID textbox
      txtID.BackColor = Color.CornflowerBlue
      txtID.ForeColor = Color.White
   End Sub
......................

阅读全部 | 张俊玲贴于 2023年11月5日 21:32 hide bbsi

[VB.net]控件

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      ' Set the caption bar text of the form.
      Me.Text = "tutorialspont.com"
   End Sub

   Private Sub txtID_MouseEnter(sender As Object, e As EventArgs)_
        Handles txtID.MouseEnter
      'code for handling mouse enter on ID textbox
      txtID.BackColor = Color.CornflowerBlue
      txtID.ForeColor = Color.White
   End Sub
......................

阅读全部 | 张俊玲贴于 2023年11月5日 21:32 hide bbsi

[VB.net]zxczxczxc123 贴于 2023-10-25 15:37:01

Module Program
Sub Main(args As String())
Console.WriteLine(2+3)
End Sub End Module

阅读全部 | zxczxczxc123 贴于 2023年10月25日 15:37 hide bbsi

[VB.net]zxczxczxc123 贴于 2023-10-25 15:37:01

Module Program
Sub Main(args As String())
Console.WriteLine(2+3)
End Sub End Module

阅读全部 | zxczxczxc123 贴于 2023年10月25日 15:37 hide bbsi

[VB.net]zxczxczxc123 贴于 2023-10-25 15:31:28

Module Program
Sub Main(args As String())

End Sub
End Module

阅读全部 | zxczxczxc123 贴于 2023年10月25日 15:31 hide bbsi

[VB.net]耐心秀贴于 2023-10-15 12:20:03

Module Program
Sub Main(args As String())
Console.WriteLine(2+3)
End Sub End Module

阅读全部 | 耐心秀贴于 2023年10月15日 12:20 hide bbsi

[VB.net]start learning

' Module paramByVal
'     Sub swap(x As Integer, y As Integer)
'         Dim temp As Integer
'         temp = x
'         x = y
'         y = temp
'     End Sub

' Sub Main(args As String())
'         Dim a As Integer = 100, b As Integer = 200
'         Console.WriteLine($"Before swap,the value of a is {a},the value of b is {b}")
'         swap(a,b)
......................

阅读全部 | 溯光贴于 2023年3月20日 11:44 hide bbsi

[VB.net]白Main新1

Option Explicit
Dim JScript, CString, File, Control, System, NetWork  '定义线程级变量       '每个线程不同
Dim Window, VBSlibrary
Dim HttpProgress
Const IsDebug = 0
Const Version = "0.0.0.7"
Sub Main()
    If Globals("App").PrevInstance Then
        Dim ws, WMI, Process
        Set ws = CreateObject("wscript.shell")
        ws.SendKeys "{HOME}"
        Set WMI = GetObject("WinMgmts:")
......................

阅读全部 | 王宇577 贴于 2023年1月15日 02:49 hide bbsi

[VB.net]ui新

Option Explicit
Const C_WorkProgress = 4
Class UI_Class
    Public Form, Tip, config, AppName, Starting, Angel
    Private Menu, hMenu1(1), hMenu2(0), timing
    Private Tooptip
    Private DisablePowerSave
    Private Sub Create()
        Dim i, v, s, j, arr
        Set Menu = Control.Menu()
        Set Form = Api.NewForm()
        Set Tooptip = Control.Tooptip()
......................

阅读全部 | 王宇577 贴于 2023年1月15日 02:42 hide bbsi

[VB.net]飞车BP功能新

Option Explicit
Const C_GameWith = 1024
Const C_GameHeight = 768
Const C_GameSmallWith = 320
Const C_GameSmallHeight = 240
'黑带   16  20
Dim GamehWnd, dm, AppName, config, bgkms, KMData
config = ".\Angel.ini"
AppName = "Angel_BP"
Function CmpMutlColor(Args, Sleep)
    Dim i
    For i = 0 To UBound(Args)
......................

阅读全部 | 王宇577 贴于 2023年1月15日 02:35 hide bbsi