开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > DirextX编程 > 查看源码
脚本显示模块.bas
资源名称：vbmcrisrc.rar　[点击查看]
上传用户：pcw2004
上传日期：2022-02-02
资源大小：743k
文件大小：4k
源码类别：

DirextX编程

开发平台：

Visual Basic

脚本显示模块.bas：源码内容
  1. Attribute VB_Name = "脚本显示模块"
  2. Option Explicit
  3. Public Type TextInfo
  4.     tRECT As RECT
  5.     mStr As String
  6.     FunctionName As String
  7.     mColor As Long
  8.     Type As Integer
  9. End Type
  10. Public StrCount As Integer
  11. ' Download by http://www.codefans.net
  12. Public StrInfo() As TextInfo
  13. Public Sub DrawScript()
  14.     Dim i As Integer
  15.     Dim j As Integer
  16.     For i = 0 To StrCount
  17.         mRECT.Left = 15
  18.         mRECT.Top = 15
  19.         mRECT.Right = 400
  20.         mRECT.bottom = 200
  21.         If StrInfo(i).Type = 0 Then
  22.             D3DX.DrawText D3DFont2, D3DColorRGBA(255, 255, 255, 255), StrInfo(i).mStr, StrInfo(i).tRECT, DT_LEFT
  23.         ElseIf StrInfo(i).Type = 1 Then
  24.             If Mouse.Button1Down = True And Mouse.X > StrInfo(i).tRECT.Left And Mouse.X < StrInfo(i).tRECT.Right And _
  25.                Mouse.Y > StrInfo(i).tRECT.Top And Mouse.Y < StrInfo(i).tRECT.bottom Then
  26.                 D3DX.DrawText D3DFont1, D3DColorRGBA(255, 0, 0, 255), StrInfo(i).mStr, StrInfo(i).tRECT, DT_LEFT
  27.             Else
  28.                 D3DX.DrawText D3DFont1, D3DColorRGBA(255, 255, 0, 255), StrInfo(i).mStr, StrInfo(i).tRECT, DT_LEFT
  29.             End If
  30.             
  31.         End If
  32.     Next
  33.     
  34.     
  35. End Sub
  37. Public Sub GetText(Str As String)
  38.     Dim SS As Variant, LenStr As Integer
  39.     Dim Str1 As String
  40.     Dim Work As Boolean, FunWork As Boolean
  41.     Dim i As Integer, j As Integer
  42.     Dim Len1 As Integer
  43.     StrCount = 0
  44.     ReDim StrInfo(StrCount)
  45.     SS = Split(Str, vbCrLf)
  46.     For i = 0 To UBound(SS)
  47.         LenStr = 0
  48.         Len1 = 15
  49.         If SS(i) <> "" Then
  50.             StrCount = StrCount + 1
  51.             ReDim Preserve StrInfo(StrCount)
  52.             StrInfo(StrCount).tRECT.Left = Len1
  53.             StrInfo(StrCount).tRECT.Top = 15 + i * 15
  54.             StrInfo(StrCount).tRECT.bottom = StrInfo(StrCount).tRECT.Top + 35
  55.         End If
  56.         Do While LenStr <= Len(SS(i))
  57.             DoEvents
  58.             LenStr = LenStr + 1
  59.             Str1 = Mid(SS(i), LenStr, 1)
  60.             If Str1 = "<" Then
  61.                 FrmMain.Label2.Caption = StrInfo(StrCount).mStr
  62.                 Len1 = Len1 + FrmMain.Label2.Width
  63.                 StrCount = StrCount + 1
  64.                 ReDim Preserve StrInfo(StrCount)
  65.                 StrInfo(StrCount).tRECT.Left = Len1
  66.                 StrInfo(StrCount).tRECT.Top = 15 + i * 15
  67.                 StrInfo(StrCount).tRECT.bottom = StrInfo(StrCount).tRECT.Top + 12
  68.                 StrInfo(StrCount).Type = 1
  69.                 Work = True
  70.             ElseIf Str1 = "/" Then
  71.                 If Mid(SS(i), LenStr + 1, 1) <> "/" Then
  72.                     If Work = True Then FunWork = True
  73.                 End If
  74.             ElseIf Str1 = "" Then
  75.             ElseIf Str1 = ">" Then
  76.                 Work = False
  77.                 FunWork = False
  78.                 FrmMain.Label2.Caption = StrInfo(StrCount).mStr
  79.                 Len1 = Len1 + FrmMain.Label2.Width
  80.                 StrCount = StrCount + 1
  81.                 ReDim Preserve StrInfo(StrCount)
  82.                 StrInfo(StrCount).tRECT.Left = Len1
  83.                 StrInfo(StrCount).tRECT.Top = 15 + i * 15
  84.                 StrInfo(StrCount).tRECT.bottom = StrInfo(StrCount).tRECT.Top + 12
  85.             Else
  86.                 If Work = True Then
  87.                     If FunWork = True Then
  88.                         StrInfo(StrCount).FunctionName = StrInfo(StrCount).FunctionName & Str1
  89.                     Else
  90.                         StrInfo(StrCount).mStr = StrInfo(StrCount).mStr & Str1
  91.                         FrmMain.Label2.Caption = StrInfo(StrCount).mStr
  92.                         StrInfo(StrCount).tRECT.Right = StrInfo(StrCount).tRECT.Left + FrmMain.Label2.Width
  93.                     End If
  94.                 Else
  95.                     StrInfo(StrCount).mStr = StrInfo(StrCount).mStr & Str1
  96.                     FrmMain.Label2.Caption = StrInfo(StrCount).mStr
  97.                     StrInfo(StrCount).tRECT.Right = StrInfo(StrCount).tRECT.Left + FrmMain.Label2.Width
  98.                 End If
  99.             End If
  100.         Loop
  101.     Next
  102.                 
  103. End Sub
  105. 'Public Function GetFunNum(FunName As String) As Integer
  106. '    Dim i As Integer
  107. '    For i = 1 To NPCInfo(SelNpcNum).ScriptCount
  108. '        If NPCInfo(SelNpcNum).Script(i).ScriptName = FunName Then
  109. '            GetFunNum = i
  110. '            Exit For
  111. '            Exit Function
  112. '        End If
  113. '    Next
  114. 'End Function