如何用DX实现打字特效?

rOGErZ

郁闷了一个下午,还是没有什么进展~~~ [em4] [em17] [em17] [em7]

Jeminai

“打字特效”什么东东啊？

rOGErZ

那天想了一晚,无奈只好去睡觉了~~早上起来时突发灵感~~问题自解了[em12]~~
Public Sub DrawText()
Const text = "Salut a tous c'est moi Flint."
Dim str As String
str = Left(text, i) & "_"

Backbuffer.SetForeColor vbWhite
'Backbuffer.SetFontTransparency False

With setFont
    .Name = "Impact"
    .Size = 12
    .Bold = False
End With

Backbuffer.setFont setFont
Backbuffer.DrawText 0, 0, str, False
End Sub

然后在Timer里加上i=i+1这么一行就行了~~
不过现在这段代码只能显示简单的一段文字,离我要求的能大段大段显示文字还有点距离~~努力努力~~  [em17] [em17] [em17]

rOGErZ

哇咔咔咔咔~~ [em19]怎么没想到用INI呢~~
这样不就可以大段大段的往里灌文字了嘛~~
咩活活活~~不开窍不开窍啊~~~
[em19][em19][em19]灌文字咯~灌文字咯~~
  Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Private Sub Command1_Click()
Dim A As Long

'写信息
'修改ABC.INI文件中TIP字段中START的值为当前系统时间
'如果该文件不存在会自动建立,当函数返回值为0时说明修改不成功

A = WritePrivateProfileString("TIP", "START", Time$, App.Path & "\ABC.INI")

If A = 0 Then MsgBox "写文件时出错"
End Sub

Private Sub Command2_Click()
Dim A As Long
Dim T As String
'读取信息
T = Space$(1000) '事先定义读取值的字串宽度
'读取ABC.INI文件中TIP字段中START的值并打印出来
'当函数返回值为0时说明读取数据出错
A = GetPrivateProfileString("TIP", "START", "", T, 1000, App.Path & "\ABC.INI")
If A = 0 Then MsgBox "找不到所需字段": Exit Sub
Text1 = Left$(T, Len(Trim$(T)) - 1)

End Sub