اسکرول تکست [بایگانی]

Ariyan

پنج شنبه 26 شهریور 1383, 01:22 صبح

فعلا اینو داشته باش تا بعد :wink:

Dim i As Integer
Dim L As Boolean

Private Sub Form_Load()
Label1.Caption = Format(Time, "Short Time")
Timer1.Interval = 400
i = 0
End Sub

Private Sub Timer1_Timer()
Dim clock
clock = Format(Time, "Short Time")
If L = False Then
Label1.Caption = Space(i) + Left(clock, (5 - i))
Else
Label1.Caption = Right(clock, i)
End If
If i < 5 Then
i = i + 1
Else
i = 0
If L = False Then
L = True
Else
L = False
End If
End If
End Sub

H_r_m

پنج شنبه 26 شهریور 1383, 19:59 عصر

سلام
خیلی ممنون اریان جان :)
فکر کنم همون باشه میزم که امتحان کنم 8-)

H_r_m

جمعه 27 شهریور 1383, 22:16 عصر

سلام
ممنونم ولی اونی که میخواستم نبود
ببینید من یه لیبل به اندازه فرم دارم
متن اون لیبل از خود لیبل بزرگتره و با این کد شما تمام متن رو میخواد نشون بده واونموقع است که لیبل متن رو چند خطی میکنه
اگه لیبل رو اتو سایز کنم اونوقت هم قسمت زیادی رو باید سفید بره تا متن تموم شه و از اول شروع کنه که این زیاد خوشایند نیست
من میخوام کلمه ها پشت سر هم بیایند (با اندکی فاصله که بتوان جدا بودنش رو از هم فهمید(
مثل وزژن های جت ایودیو قدیمی و یا مثل وینامپ های جدید
شرمنده ها :oops:

kochol

شنبه 28 شهریور 1383, 17:37 عصر

می تونی متنتو به یک متغییر بدی و با دستور Right یا Left مقدار معینی از متن را در یک متغییر جدید قرار بدی و label اونرو نشون بده 8-)

H_r_m

شنبه 28 شهریور 1383, 21:40 عصر

نه اینم جواب نمیده :(
یکی نیست یه راهنمایی بکنه :?

H_r_m

یک شنبه 29 شهریور 1383, 19:01 عصر

:oops: :cry: :? :(

MM_Mofidi

دوشنبه 30 شهریور 1383, 19:41 عصر

توی لیبل بنویس و مرتب کن (هرجور میخواهی) بعد یک یا دو لیبل یا PIctureBox خالی یا هرچیزی رو از روش رد کن.(▄ ▄)

Ariyan

پنج شنبه 02 مهر 1383, 19:51 عصر

سلام تازه اومدم (در ضمن اسمم آرین نه اریان :roll: ) در موردش فکر می کنم :idea:

H_r_m

پنج شنبه 02 مهر 1383, 20:16 عصر

اقای مفیدی سلام
ممنون از راهنماییتون یه جورایی کارم راه افتاد ولی موقع جابجا شدن خیلی پرپر میکنه :roll: و این اعصاب خرد کنه
البته من بجای Picture خود لیبل رو حرکت دادم

کم حوصله

پنج شنبه 02 مهر 1383, 21:37 عصر

خوب به خاطر اینکه پرپر نکنه گفتن از Picture Box استفاده کنی

H_r_m

جمعه 03 مهر 1383, 11:49 صبح

سلام
ببینید منظورتون اینه که پیکچر رو از روی لیبل حرکت بدم :?:
ولی لیبل حرکت کنه قشنگ تره :lol:
من لیبل رو توی پیکچر گذاشتم و اون تو حرکتش دادم ولی بازم پرپر میکنه :-x

Ariyan

جمعه 03 مهر 1383, 18:35 عصر

لیبل رو زیر پیکچر بزار و لیبل رو حرکت بده

H_r_m

جمعه 03 مهر 1383, 19:46 عصر

سلام
ببینید منظورتون اینه که پیکچر رو از روی لیبل حرکت بدم :?:
ولی لیبل حرکت کنه قشنگ تره :lol:
من لیبل رو توی پیکچر گذاشتم و اون تو حرکتش دادم ولی بازم پرپر میکنه :-x

:roll: :roll: :roll:

Ariyan

جمعه 03 مهر 1383, 20:34 عصر

این پرپر نمیکنه

H_r_m

شنبه 04 مهر 1383, 10:41 صبح

لیبل رو زیر پیکچر بزار و لیبل رو حرکت بده

چطوری :shock: :shock: :shock:

Ariyan

شنبه 04 مهر 1383, 10:58 صبح

فایل بالا رو دانلود کن

H_r_m

شنبه 04 مهر 1383, 18:28 عصر

ارین جان سلام
شرمنده من اولی چون عجله داشتم بدون ورود اومدو تو و فایلتون رو ندیدم
برنامتون رو گرفتم
1- اگه سرعت تایمر رو برای حرکت نرمتر کم کنیم باز هم پر پر میکنه :-x
2-دلیل استفاده از دوتا تایمر رو میشه بگید (چون ساعت رو همون تایمر اول هم نشون میده) :متفکر:
3-اگه لیبل رو درون پیکچر بیندازید دیگه نیاری به دوتا پیکچر ندارید (جفتش یکیه :متفکر: )
بازم از کمکتون ممنونم :kiss:

Ariyan

یک شنبه 05 مهر 1383, 16:57 عصر

1 - من سرعت رو تا 1 هم کم کردم ولی پرپر نکرد :متفکر: :گیج:
2 - در مورد تایمر دوم هم خوب همینجوری بیشتر برای آزادی عمل چون ممکن بود بخواهید Interval را بیشتر از 1000در نظر بگیرید که تنظیم ساعت بهم میخورد :wink:
3 - خوب یه راه دیگه هم هست که Label رو درون یک Frame با BorderStyle =0 قرار بدی

vbprogramer

یک شنبه 05 مهر 1383, 18:47 عصر

سلام

- اگه سرعت تایمر رو برای حرکت نرمتر کم کنیم باز هم پر پر میکنه

یک exe از روی برنامه ات بساز فکر کنم پر پر کردنش خوب بشه چون من هم چند وقت پیش این مشکل رو داشتم البته توی vb ولی توی exe درست کار میکرد

H_r_m

یک شنبه 05 مهر 1383, 22:29 عصر

سلام
بچه ها هیچکدوم از این راهها جواب نمیده و بازهم پر پر میکنه :-x :-x :-x
ارین جان اگه توی رنگها و پس زمینه تغییراتی بدی پرپر کردنشو متوجه میشی :roll:
بچه ها به جای لیبل از تکست باکس میشه استفاده کرد ولی اون کرسر توش
خوشایند نیست :evil:
غیر از غیر فعال کردنش راهی رو سراغ ندارین که بشه کرسر توش رو مخفی کرد :?:

کم حوصله

یک شنبه 05 مهر 1383, 23:38 عصر

ببین این خوبه ؟؟

H_r_m

دوشنبه 06 مهر 1383, 10:37 صبح

سلام
کم حوصله جان حوصله به خرج دادین :تشویق: :تشویق: :تشویق:
خیلی ممنون :wink:
حالا یه سوال دیگه (چقدر پر رویم ها ) :mrgreen:
چطوری میشه با موس اونو جلو و عقب برد :متفکر:

کم حوصله

دوشنبه 06 مهر 1383, 23:36 عصر

ببین این راضیت میکنه ؟؟ :P

کافی توفرم کلید موس را پایین نگه داری و موس را حرکت بدی لیبل هر جا بخواهی همرات میاد (بالا . پایین . چپ . راست . مورب . هر جا بخواهی :wink: )

:)

H_r_m

سه شنبه 07 مهر 1383, 10:10 صبح

سلام
ممنون میرم یه امتحانی بکنم :موافق: :wink:

H_r_m

سه شنبه 07 مهر 1383, 15:34 عصر

سلام
نه نشد من باید خود لیبل رو بگیرم و بکشم :mrgreen:
و شما فرض کنید که لیبل به جای استاتوس بارهای معمول هست :roll:

کم حوصله

سه شنبه 07 مهر 1383, 21:50 عصر

میشه یکم بیشتر توضیح بدی !!!

H_r_m

چهارشنبه 08 مهر 1383, 10:36 صبح

سلام
ببینید من میخوام باموس لیبل رو به چپ یا راست ببرم :|
یعنی اینطوری که وقتی متن اسکرول میشه و رد میشه کاربر بتونه دوباره با کشیدن لیبل متن رو ببینه :wink:
امیدوارم متوجه شده باشید :موافق:

MM_Mofidi

چهارشنبه 08 مهر 1383, 11:54 صبح

به جای جابجا کردن خود لیبل در صورت drag متن آن را به جای دیگر حرکت بده.
ضمنا میتوانی تا اتمام drag کاری نکنی بعد از رها شدن موس یکبار مشخصات را بگیری تمام محیط رو یکبار رسم کنی و بعد تمام.
اگر هم بخواهی باز میتوانی بجای لیبل جعبه های تصویر(pictruBox ) را جابجا کنی بازهم فرقی نمیکنه چون مختصات ماوس را داری.

kochol

چهارشنبه 08 مهر 1383, 17:57 عصر

نه اینم جواب نمیده
یکی نیست یه راهنمایی بکنه

H_r_m

چهارشنبه 08 مهر 1383, 17:57 عصر

ممنون میرم که امتحان کنم :سکوت:

MM_Mofidi

پنج شنبه 09 مهر 1383, 13:08 عصر

این را هم ببین
با اجازه از کم حوصله عزیز. من یکم کد شما را تغییر دادم.
ضمنا برای خارج نشدن نوشته از محیط خودش میتوانی کد کنترلی اضافه کنی

H_r_m

پنج شنبه 09 مهر 1383, 14:05 عصر

سلام
اقای مفیدی و کم حوصله عزیز :lol:
شما متوجه منظورم نشدید :?
اگه محدوده اسکرول رو کم کنید و متن رو زیاد میفهمید که جریان چیه :متفکر:
من خودم از دستور ReleaseCapture و SendMessage Me.hwnd, &HA1, 2, 0&
استفاده میکنم ولی نمیدونم چطوری فقط به چپ و راست ببرم یعنی این دستور کل لیبل رو برمیداره و به بالا و پایین و چپ و راست وخلاصه هر کجا که بخواهیم میبره :متفکر: :متفکر: :متفکر:

H_r_m

شنبه 11 مهر 1383, 13:42 عصر

:متفکر: :متفکر: :متفکر: :roll: :?

MM_Mofidi

شنبه 11 مهر 1383, 17:29 عصر

خوب کنترل کن اگه y کم زیاد شد به مقدار اول برگرده
ضمنا احتمالا من بازهم منظور شما رو نفهمیدم در این مثال فرقی نمیکند شما میتوانید متن را به هر طرف drag کنید.

H_r_m

شنبه 11 مهر 1383, 17:38 عصر

بله میشه ولی همیشه نقطه 0و0 جابجا میشه نه وسط لیبل

H_r_m

یک شنبه 12 مهر 1383, 13:18 عصر

:متفکر: :متفکر: :متفکر: :cry:

H_r_m

دوشنبه 13 مهر 1383, 12:27 عصر

MM_Mofidi

دوشنبه 13 مهر 1383, 14:45 عصر

اقا اینم یک مثال دیگه
از اختلاف بین مبدا و موقعیت جاری استفاده کردم.
ضمنا sendmessage را در این مثالها نبود :shock:

البته بطور کلی (تا آنجا که من بلدم) برای کنترل اشیائی خارج از دست(مثلا برنامه دیگر) از آن میتوان استفاده کرد.
با پاس کردن هندل به آن یک سری کنترلها بر روی شیئ مربوطه به شما اختصاص داده میشود.مثلا اضافه یا کم کردن مقدار در combo یا...(کاملتر آن را در MSDN بخوانید)

H_r_m

دوشنبه 13 مهر 1383, 17:38 عصر

آقای مفیدی سلام
شرمنده ها ولی شما اصل موضوع رو متوجه نمیشید :oops: :oops: :oops:
شما به Label1 یه متن طولانی بدید بعد امتحان کنید اینطوری متن تا نصفه میره و شما میخواهید کلماتی که رد شده اند رو ببینید
دقت کنید که متن تا وسط رفته نه تا اخر
شرمنده ها :متفکر: :متفکر: :متفکر:

H_r_m

سه شنبه 14 مهر 1383, 19:29 عصر

:roll: :? :?:

کم حوصله

سه شنبه 14 مهر 1383, 21:38 عصر

سلام
می بخشید من یک مدتی غیبت داشتم
شما میخواهید متن را جابجا کنید یا جعبه نمایش متن را
منظورم اینکه
1 - لیبل از نظر نقطه مکانی جابجا شود یعنی به بالا پایین یا چپ و راست برود
2 - متن داخل لیبل را حرکت دهید برای مثال متن شما " سلام بر همه " کلمه های "سلام" و "بر" ردشده و کلمه " همه " در حال نمایش حالا شما بخواهید با مثلا گرفتن کلمه "همه" و کشیدن آن متن قبلی برگردد >؟>

کدوم موضوع بالا مورد نظر شماست ؟؟

H_r_m

چهارشنبه 15 مهر 1383, 08:12 صبح

سلام
کم حوصله جان درست زدی وسط خال :تشویق: :تشویق: :تشویق:
منظور من گزینه دومه (مثل اسکرول های Real Audio - Winamp ,...
بالاخره فکر کنم یکی منظورمو فهمید :متفکر:

MM_Mofidi

چهارشنبه 15 مهر 1383, 10:02 صبح

عزیز جان این هم همان کار را میکند که.
فقط بجای جابجا کردم متن کل قالب را جابجا میکند.مشروط به اینکه کدها را در mouseMove خود لیبل هم بنویسی.

H_r_m

پنج شنبه 16 مهر 1383, 22:04 عصر

سلام
اقای مفیدی من هر کار کردم نمیشه
یعنی اگر موس رو یه کم دور تر از لیبل ببری دیگه تنظیمش بهم میخوره :-x :متفکر:

کم حوصله

جمعه 17 مهر 1383, 20:54 عصر

سلام
خوب حالا میشه فهمید می خواهی چه کار کنی
ببین برای اینکارت من فقط می تونم راهنمایی کنم چون کدش را بلدنیستم بنویسم ( OK)
ببین یک پیکچر باکس میگذاری تو فرم یکی دیگه پیکچر باکس میگذاری داخل پیکچر باکس قبلی ( روش نه ها توش ) بعد یک لیبل میگذاری داخل پیکچر باک تویی !!
حالا پیکچر باکس بیرونی را فیکسش می کنی و به اندازه ای که می خواهی متنهایت در آن پنجره نمایش در آید می کنی
پیکچر باکس تویی را هم اندازه لیبل داخلش می کنی ( البته اول خاصیت اتوسایز لیبلت را مثبت میکنی تا به اندازه متنت در آید )
خوب حالا کدی می نویسی که پیکچر داخلی توی پیکچر بیرونی به حرکت در آید
خوب مشخص است که به اندازه ای که پیکچر بیرونی را گرفته ای فقط متنت پیداست
تا اینجا (OK)
حالا اصلش اینجاست
زمانی که روی لیبل کلیک شد که یعنی لیبل را گرفته و می خواهد حرکت دهند بایدموقعیت موس را نسبت به دسکتابت به دست آوری و میزان حرکتی که موس نسبت به موقعیتش بر روی دسکتاب انجام می دهد را به دست آوری و بر روی لیبل اعمال کنی
گرفتی چی شد ؟؟؟
****(من نمی دونم موقعیت موس نسبت به دسکتاب را چه جوری میشه به دست آورد وگرنه خودم مثالش را درست می کردم و برات می گذاشتم )****

H_r_m

شنبه 18 مهر 1383, 11:31 صبح

سلام
خوب حالا میشه فهمید می خواهی چه کار کنی
ببین برای اینکارت من فقط می تونم راهنمایی کنم چون کدش را بلدنیستم بنویسم ( OK)
ببین یک پیکچر باکس میگذاری تو فرم یکی دیگه پیکچر باکس میگذاری داخل پیکچر باکس قبلی ( روش نه ها توش ) بعد یک لیبل میگذاری داخل پیکچر باک تویی !!
حالا پیکچر باکس بیرونی را فیکسش می کنی و به اندازه ای که می خواهی متنهایت در آن پنجره نمایش در آید می کنی
پیکچر باکس تویی را هم اندازه لیبل داخلش می کنی ( البته اول خاصیت اتوسایز لیبلت را مثبت میکنی تا به اندازه متنت در آید )
خوب حالا کدی می نویسی که پیکچر داخلی توی پیکچر بیرونی به حرکت در آید
خوب مشخص است که به اندازه ای که پیکچر بیرونی را گرفته ای فقط متنت پیداست
تا اینجا (OK)

تا اینجا Ok
چون من هم همین کار ها رو کرده ام :wink:
اما دومی رو درست متوجه نشدم حالا میرم که ببینم میتونم کاری کنم :roll:
اگه نتیجه داد اینجا میگم
فعلا :wink:

کم حوصله

شنبه 18 مهر 1383, 23:15 عصر

آیا کسی می دونه چه جوری میشه موقعیت موس را نسبت به دسکتاب در آورد ؟؟؟

(سیدشریفی)

یک شنبه 19 مهر 1383, 09:22 صبح

پیدا کردن موقعیت ماوس

Option Explicit

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI
X As Long
Y As Long
End Type

Dim pt As POINTAPI

GetCursorPos pt

Text1.Text = pt.X & "-" & pt.Y

:)

H_r_m

یک شنبه 19 مهر 1383, 20:03 عصر

سلام
کم حوصله عزیز و علی جان از لطفتون ممنونم
ولی سرعت جابجایی خیلی کمه :roll: آیا میشه زیادترش کرد :?:

H_r_m

چهارشنبه 22 مهر 1383, 11:37 صبح

سلام
بچه ها میشه سرعتش رو زیادتر کرد :sunglass: :developer:

H_r_m

چهارشنبه 22 مهر 1383, 17:53 عصر

:reading: ::نوشتن::

H_r_m

پنج شنبه 23 مهر 1383, 19:29 عصر

:dead: :sad2: :sorry:

کم حوصله

جمعه 24 مهر 1383, 22:08 عصر

سلام
من کد را الان گرفتم :sorry:
سعی می کنم برم روش کارکنم و برات بگذارم :flower: :)

H_r_m

شنبه 25 مهر 1383, 09:32 صبح

سلام
کم حوصله جان شرمنده :oops:

H_r_m

دوشنبه 27 مهر 1383, 09:17 صبح

:confy2: :گیج:

MM_Mofidi

چهارشنبه 29 مهر 1383, 15:58 عصر

.این تابع فقط موقعیت موس را برمیگرداند. و موقعیت تکست باکس را به آن ست میکند
یعنی مشکل شما این بود؟؟؟ :? :kaf: :confy2:

H_r_m

چهارشنبه 29 مهر 1383, 18:48 عصر

.این تابع فقط موقعیت موس را برمیگرداند. و موقعیت تکست باکس را به آن ست میکند
یعنی مشکل شما این بود؟؟؟ :? :kaf: :confy2:

سلام
من که اصلا به تکست باکس کاری نداشتم :kaf: :kaf:
راستی ایا شما واقعا منظور منو حالا فهمیدید :متفکر:
میشه راجع به سرعتش هم کمکم کنید :wink: