Pondo a frmSpellEditor para text!

Convidado

Começando

Antes de tudo vamos baixar a frmSpellEditor para ficar mais facil

Client~Side

Procure por:

Código:

Public Sub SpellEditorInit()
Dim I As Long

frmSpellEditor.cmbClassReq.AddItem "Todas as Classes"
For I = 1 To Max_Classes
frmSpellEditor.cmbClassReq.AddItem Trim(Class(I).Name)
Next I

frmSpellEditor.txtName.Text = Trim(Spell(EditorIndex).Name)
frmSpellEditor.cmbClassReq.ListIndex = Spell(EditorIndex).ClassReq
frmSpellEditor.scrlLevelReq.Value = Spell(EditorIndex).LevelReq

frmSpellEditor.cmbType.ListIndex = Spell(EditorIndex).Type
frmSpellEditor.scrlVitalMod.Value = Spell(EditorIndex).Data1

frmSpellEditor.scrlCost.Value = Spell(EditorIndex).MPCost
frmSpellEditor.scrlSound.Value = Spell(EditorIndex).Sound

If Spell(EditorIndex).Range = 0 Then Spell(EditorIndex).Range = 1
frmSpellEditor.scrlRange.Value = Spell(EditorIndex).Range

frmSpellEditor.scrlSpellAnim.Value = Spell(EditorIndex).SpellAnim
frmSpellEditor.scrlSpellTime.Value = Spell(EditorIndex).SpellTime
frmSpellEditor.scrlSpellDone.Value = Spell(EditorIndex).SpellDone

frmSpellEditor.chkArea.Value = Spell(EditorIndex).AE

frmSpellEditor.Show vbModal
End Sub

Mude para:

Código:

Public Sub SpellEditorInit()
Dim I As Long

frmSpellEditor.cmbClassReq.AddItem "Todas as Classes"
For I = 1 To Max_Classes
frmSpellEditor.cmbClassReq.AddItem Trim(Class(I).Name)
Next I

frmSpellEditor.txtName.Text = Trim(Spell(EditorIndex).Name)
frmSpellEditor.cmbClassReq.ListIndex = Spell(EditorIndex).ClassReq
frmSpellEditor.scrlLevelReq.Text = Spell(EditorIndex).LevelReq

frmSpellEditor.cmbType.ListIndex = Spell(EditorIndex).Type
frmSpellEditor.scrlVitalMod.Text = Spell(EditorIndex).Data1

frmSpellEditor.scrlCost.Text = Spell(EditorIndex).MPCost
frmSpellEditor.scrlSound.Text = Spell(EditorIndex).Sound

If Spell(EditorIndex).Range = 0 Then Spell(EditorIndex).Range = 1
frmSpellEditor.scrlRange.Text = Spell(EditorIndex).Range

frmSpellEditor.scrlSpellAnim.Text = Spell(EditorIndex).SpellAnim
frmSpellEditor.scrlSpellTime.Text = Spell(EditorIndex).SpellTime
frmSpellEditor.scrlSpellDone.Text = Spell(EditorIndex).SpellDone

frmSpellEditor.chkArea.Value = Spell(EditorIndex).AE

frmSpellEditor.Show vbModal
End Sub

Procure por:

Código:

Public Sub SpellEditorOk()
Spell(EditorIndex).Name = frmSpellEditor.txtName.Text
Spell(EditorIndex).ClassReq = frmSpellEditor.cmbClassReq.ListIndex
Spell(EditorIndex).LevelReq = frmSpellEditor.scrlLevelReq.Value
Spell(EditorIndex).Type = frmSpellEditor.cmbType.ListIndex
Spell(EditorIndex).Data1 = frmSpellEditor.scrlVitalMod.Value
Spell(EditorIndex).Data3 = 0
Spell(EditorIndex).MPCost = frmSpellEditor.scrlCost.Value
Spell(EditorIndex).Sound = frmSpellEditor.scrlSound.Value
Spell(EditorIndex).Range = frmSpellEditor.scrlRange.Value

Spell(EditorIndex).SpellAnim = frmSpellEditor.scrlSpellAnim.Value
Spell(EditorIndex).SpellTime = frmSpellEditor.scrlSpellTime.Value
Spell(EditorIndex).SpellDone = frmSpellEditor.scrlSpellDone.Value

Spell(EditorIndex).AE = frmSpellEditor.chkArea.Value

Call SendSaveSpell(EditorIndex)
InSpellEditor = False
Unload frmSpellEditor
End Sub

Mude para:

Código:

Public Sub SpellEditorOk()
Spell(EditorIndex).Name = frmSpellEditor.txtName.Text
Spell(EditorIndex).ClassReq = frmSpellEditor.cmbClassReq.ListIndex
Spell(EditorIndex).LevelReq = frmSpellEditor.scrlLevelReq.Text
Spell(EditorIndex).Type = frmSpellEditor.cmbType.ListIndex
Spell(EditorIndex).Data1 = frmSpellEditor.scrlVitalMod.Text
Spell(EditorIndex).Data3 = 0
Spell(EditorIndex).MPCost = frmSpellEditor.scrlCost.Text
Spell(EditorIndex).Sound = frmSpellEditor.scrlSound.Text
Spell(EditorIndex).Range = frmSpellEditor.scrlRange.Text

Spell(EditorIndex).SpellAnim = frmSpellEditor.scrlSpellAnim.Text
Spell(EditorIndex).SpellTime = frmSpellEditor.scrlSpellTime.Text
Spell(EditorIndex).SpellDone = frmSpellEditor.scrlSpellDone.Text

Spell(EditorIndex).AE = frmSpellEditor.chkArea.Value

Call SendSaveSpell(EditorIndex)
InSpellEditor = False
Unload frmSpellEditor
End Sub

Procure por:

Código:

SpellDone = scrlSpellDone.Value
SpellAnim = scrlSpellAnim.Value
SpellTime = scrlSpellTime.Value

Mude para:

Código:

SpellDone = scrlSpellDone.Text
SpellAnim = scrlSpellAnim.Text
SpellTime = scrlSpellTime.Text

Creditos

Ricardo XD