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

[vahidjahanbin]

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

[danismoke]

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

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

[بهروز عباسی]

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

این تکه کد رشته ای رو رمز میکنه( البته چون بخشی از یه برنامست ممکنه توی اون برنامه کاربرد دیگه ای داشته باشه)
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

[رامین مرادی]

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

[cjmoon]

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

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