1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
| namespace autoscrollTest
{
public partial class Form6 : Form
{
private string text = "Quam quidem\n partem accusationis admiratus sum\net moleste tuli potissimum esse Atratino datam.\nNeque enim decebat neque aetas illa postulabat neque,\n id quod animadvertere poteratis,\n pudor patiebatur optimi adulescentis\n in tali illum oratione versari.\n Vellem aliquis ex vobis robustioribus hunc male dicendi\n locum suscepisset; aliquanto liberius et fortius et magis \nmore nostro refutaremus istam male dicendi licentiam.\n Tecum, Atratine, agam lenius,\n quod et pudor tuus moderatur orationi meae \net meum erga te parentemque tuum beneficium tueri debeo.\nEodem tempore Serenianus ex duce,\n cuius ignavia populatam in Phoenice Celsen ante rettulimus,\n pulsatae maiestatis imperii reus iure postulatus ac lege,\n incertum qua potuit suffragatione absolvi,\n aperte convictus familiarem suum cum pileo, \nquo caput operiebat, incantato vetitis artibus ad templum misisse fatidicum,\n quaeritatum expresse an ei firmum portenderetur imperium,\n ut cupiebat, et cunctum.\nCirca hos dies Lollianus primae lanuginis adulescens,\n Lampadi filius ex praefecto, exploratius causam Maximino spectante,\n convictus codicem noxiarum artium nondum per aetatem firmato consilio descripsisse,\n exulque mittendus, ut sperabatur,\n patris inpulsu provocavit ad principem, et iussus ad eius comitatum duci, de fumo,\n ut aiunt, in flammam traditus Phalangio Baeticae consulari cecidit funesti carnificis manu.\nEx his quidam aeternitati se commendari posse per statuas aestimantes\n eas ardenter adfectant quasi plus praemii de figmentis\n aereis sensu carentibus adepturi,\n quam ex conscientia honeste recteque factorum,\n easque auro curant inbracteari, quod Acilio Glabrioni delatum est primo,\n cum consiliis armisque regem superasset Antiochum.\n quam autem sit pulchrum exigua haec spernentem et minima ad ascensus verae gloriae tendere longos et arduos,\n ut memorat vates Ascraeus, Censorius Cato monstravit.\n qui interrogatus quam ob rem inter multos...\n statuam non haberet malo inquit ambigere\n bonos quam ob rem id non meruerim,\n quam quod est gravius cur inpetraverim mussitare.";
Point p;
public Form6()
{
InitializeComponent();
p = new Point(0, 0);
vScrollBar1.Scroll += new ScrollEventHandler(vScrollBar1_Scroll);
}
void vScrollBar1_Scroll(object sender, ScrollEventArgs e)
{
Graphics g = panel1.CreateGraphics();
g.DrawString(text, this.Font, new SolidBrush(Color.Black), new Rectangle(0, 0, panel1.Width, vScrollBar1.Value));
//g.DrawImage(pictureBox1.Image, new Rectangle(0, 0, pictureBox1.Height, vScrollBar1.Value));
}
private void panel1_Paint(object sender, PaintEventArgs e)
{
// e.Graphics.DrawString(text, this.Font, new SolidBrush(Color.Black), 0, 0);
}
private void Form6_Load(object sender, EventArgs e)
{
vScrollBar1.Maximum = text.Length;
vScrollBar1.Value = 100;
//panel1.VerticalScroll.Visible = true;
//panel1.VerticalScroll.Minimum = 0;
//panel1.VerticalScroll.Maximum = text.Length;
}
void panel1_Scroll(object sender, ScrollEventArgs e)
{
}
}
} |
