zidanerfan
شنبه 23 مهر 1390, 14:16 عصر
سلام دوستان میخوام به این پروژه Status اضافه کنم یکی از دوستانم گفتش که از این کد استفاده کنم من هر باز انجامش می دم Error میده
Public Function changeStatus(Message As String, busy As Boolean) As String
Dim Packet As String
If busy = True Then
Packet = "10À€99À€19À€" & Message & "À€47À€1À€187À€0À€"
Else
Packet = "10À€99À€19À€" & Message & "À€47À€0À€187À€0À€"
End If
changeStatus = Header("C6", Packet)
End Function
اگه میشه رو این پروژه ای که میزارم Status اضافه کنید ممنون میشم
Proje:http://www.uploadtak.com/images/gbc3oo8cr70e5ri2at50.zip
Public Function changeStatus(Message As String, busy As Boolean) As String
Dim Packet As String
If busy = True Then
Packet = "10À€99À€19À€" & Message & "À€47À€1À€187À€0À€"
Else
Packet = "10À€99À€19À€" & Message & "À€47À€0À€187À€0À€"
End If
changeStatus = Header("C6", Packet)
End Function
اگه میشه رو این پروژه ای که میزارم Status اضافه کنید ممنون میشم
Proje:http://www.uploadtak.com/images/gbc3oo8cr70e5ri2at50.zip