Private Sub CmdBtnFindCode_Click()
CBCodSource.ListIndex = detectCode - 1
End Sub
Private Sub CBCodSource_Click()
Dim idx1 As Integer, idx2 As Integer
idx1 = CBCodSource.ListIndex + 1
idx2 = CBCodDest.ListIndex + 1
If idx1 = 40 Then idx1 = 39
If idx2 = 40 Then idx2 = 39
setcode idx1, idx2
idCodeSource = idx1
idCodeDes = idx2
End Sub
Private Sub CBCodDest_Click()
CBCodSource_Click
End Sub
Private Sub CommandStop_Click()
IsStop = True
CommandStop.Enabled = False
End Sub
Sub myClose_Click()
Unload Me
End Sub
Private Sub OptionButtonDown_Click()
SelectRange Me
End Sub
Private Sub OptionButtonFull_Click()
SelectRange Me
End Sub
Private Sub OptionButtonSelect_Click()
SelectRange Me
End Sub
Private Sub OptionButtonUp_Click()
SelectRange Me
End Sub
Sub Replaceall_Click()
CBCodSource_Click
doConvert
Percent myPross, 100
End Sub
Sub setcode(Sour As Integer, Des As Integer)
If Me.Tag <> "LoadOK" Then Exit Sub
Me.LabelTest.Text = TestConvert(Sour, SpinButton1.Value)
VK_Code2Code Sour, Des
VK_Code2Code Sour, Des
flagVIQR = (Sour = 24)
End Sub
Private Sub SpinButton1_Change()
With Me
setcode .CBCodSource.ListIndex + 1, .CBCodSource.ListIndex + 1
.LabelTest.SelStart = Len(.LabelTest.Text)
.LabelTest.SetFocus
End With
End Sub
Private Sub UserForm_Initialize()
Dim Code As Integer
With Me
.imgPanel.Picture = frmResource.vkpanel.Picture
.myClose.Picture = frmResource.myClose.Picture
.CommandStop.Picture = frmResource.CommandStop.Picture
.CommandHelp.Picture = frmResource.CommandHelp.Picture
idCodeSource = detectCode
checkDefCode
'idCodeSource = iDefaultCode
Code = idCodeSource
SetFontList .CBCodSource, Code - 1
SetFontList .CBCodDest, 38 ' 14
'idCodeDes = 39
.Tag = "LoadOK"
End With
myLoadSetting
SelectRange Me
CBCodSource_Click
End Sub
Private Function TestConvert(Sour As Integer, l As Integer) As String
Dim TempStr As String, TempStr1 As String
VK_Code2Code Sour, 15
TempStr1 = GetWordsForTestConvert(l)
TempStr = TempStr1 + TempStr1
TestConvert = Left(TempStr, VK_Convert(TempStr1, TempStr))
End Function
Private Function mySaveSetting()
SaveSetting myApp, Section, "ChBSave", Str(Me.ChBSave.Value)
End Function
Private Function myLoadSetting()
ChBSave.Value = Trim(GetSetting(myApp, Section, "ChBSave")) = "True"
End Function
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
mySaveSetting
End Sub
, bạn nào có thể hướng dẫn trình tự các bước mở file Add-in hiển thị chữ "Project unviewable" đc ko?
. nói vậy thôi chứ chẳng để làm gì. Nói chung
