سلام کدهای زیر چی کار مکنند؟

Public Function PassCode(Pass As String) As String
Dim newpas As String
newpas = ""
For i = 1 To Len(Pass)

If Len(Chr$(Asc(Mid(Pass, i, 1)))) = 3 Then
newpas = newpas & Asc(Mid(Pass, i, 1))
Else
newpas = newpas & "0" & Asc(Mid(Pass, i, 1))
End If
Next i
PassCode = newpas
End Function
Public Sub SetGridColumnWidth(grd As MSHFlexGrid)

Dim InnerLoopCount As Long
Dim OuterLoopCount As Long
Dim lngLongestLen As Long
Dim sLongestString As String
Dim lngColWidth As Long
Dim szCellText As String


With grd


For OuterLoopCount = 0 To .Cols - 1
sLongestString = ""
lngLongestLen = 0


For InnerLoopCount = 0 To .Rows - 1
szCellText = .TextMatrix(InnerLoopCount, OuterLoopCount)


If Len(szCellText) > lngLongestLen Then
lngLongestLen = Len(szCellText)
sLongestString = szCellText
End If
Next
lngColWidth = .Parent.TextWidth(sLongestString)

.ColWidth(OuterLoopCount) = lngColWidth + 300
Next
End With
End Sub

سلام ، اگه اشتباه نکنم برای دیکد کردن رمزه !!!

جالبه ، خیلی پیچیده ...

درود دوست عزیزاول اینکه کدت رو داخل تگ مخصوص کد بنویس که خوانا باشه

این تکه کد رشته ای رو رمز میکنه( البته چون بخشی از یه برنامست ممکنه توی اون برنامه کاربرد دیگه ای داشته باشه)

Public Function PassCode(Pass As String) As String

Dim newpas As String

newpas = ""

For i = 1 To Len(Pass)



If Len(Chr$(Asc(Mid(Pass, i, 1)))) = 3 Then

newpas = newpas & Asc(Mid(Pass, i, 1))

Else

newpas = newpas & "0" & Asc(Mid(Pass, i, 1))

End If

Next i

PassCode = newpas

End Function

این کدهم برای کار کردن با MSFlexGrid هستش که میتونی از این راه به برنامت اضافش کنی

Project/component... بعد کادر component باز میشه از اون لیست گزینه Microsoft FlexGrid Control 6.0 رو تیک بزن

Public Sub SetGridColumnWidth(grd As MSFlexGrid)



Dim InnerLoopCount As Long

Dim OuterLoopCount As Long

Dim lngLongestLen As Long

Dim sLongestString As String

Dim lngColWidth As Long

Dim szCellText As String





With grd





For OuterLoopCount = 0 To .Cols - 1

sLongestString = ""

lngLongestLen = 0





For InnerLoopCount = 0 To .Rows - 1

szCellText = .TextMatrix(InnerLoopCount, OuterLoopCount)





If Len(szCellText) > lngLongestLen Then

lngLongestLen = Len(szCellText)

sLongestString = szCellText

End If

Next

lngColWidth = .Parent.TextWidth(sLongestString)



.ColWidth(OuterLoopCount) = lngColWidth + 300

Next

End With

End Sub

اول به تاریخ پست ها توجه کنید بعد جواب بدید البته بی ادبی نباشه
چون خود کسی که پست زده نیومده بگه که چرا جواب ندادید ولی در کل جالب بود

نقل قول:

---

نوشته شده توسط vb-proj

اول به تاریخ پست ها توجه کنید بعد جواب بدید البته بی ادبی نباشه
چون خود کسی که پست زده نیومده بگه که چرا جواب ندادید ولی در کل جالب بود

---

دادا جونم حرفت خوبه ولی اگه
جواب بدن که بهتره شاید واسه کسه دیگه ای این سوال باشه
مرسی از برو بکس حرفه ای که هوای مارو دارن:تشویق: