Sub Window_OnInit()
End Sub

Sub Window_OnSize(cx,cy)
End Sub

'处理QQMusic程序发来的事件
Sub Window_OnNotify(code,var)
	If code = 1001 Then
		If var = 0 Then		'搜索失败
			Pic_Warning.visible = true
			Text_Result.visible = true
			Text_Result.value = "歌词不存在，我来"
			Text_Result.width = Text_Result.textlength
			
			Text_UploadLyric.visible = true
		ElseIf Var = 1 Then	'搜索成功
			Pic_Warning.visible = false
			Text_Result.visible = true
			Text_Result.value = "搜索成功！"
			Text_Result.width = Text_Result.textlength
			
			Text_UploadLyric.visible = false
		ElseIf Var = 2 Then	'搜索中
			Pic_Warning.visible = false
			Text_Result.visible = true
			Text_Result.value = "搜索中..."
			Text_Result.width = Text_Result.textlength			
			
			Text_UploadLyric.visible = false
		ElseIf Var = 3 Then	'网络错误
			Pic_Warning.visible = true
			Text_Result.visible = true
			Text_Result.value = "与服务器通信失败，请稍后再试"
			Text_Result.width = Text_Result.textlength
			
			Text_UploadLyric.visible = false			
		End If
	End If
End Sub
